Generate and return the Inverse (normalized) Fourier Transform of a periodic sequence of type complex or real of arbitrary kind type parameter. More...

Detailed Description

Generate and return the Inverse (normalized) Fourier Transform of a periodic sequence of type complex or real of arbitrary kind type parameter.

See the documentation of setFFTI for more details.

Parameters

[in]

data

: The input contiguous vector of arbitrary size of,

type complex of kind any supported by the processor (e.g., CK, CK32, CK64, or CK128),
type real of kind any supported by the processor (e.g., RK, RK32, RK64, or RK128),

containing the periodic sequence whose FFT is to be computed.

Returns: fft : The output vector of the same type, kind, and size as the input data, containing the FFT result.

Possible calling interfaces ⛓

: use pm_fftpack, only: getFFTI

fft = getFFTI(data(:))

pm_fftpack::getFFTI
Generate and return the Inverse (normalized) Fourier Transform of a periodic sequence of type complex...
Definition: pm_fftpack.F90:1567

pm_fftpack
This module contains procedures and generic interfaces for computing the Discrete Fourier Transform o...
Definition: pm_fftpack.F90:205

Remarks: The procedures under discussion are impure.

Note: This functional generic interface is simply a more flexible but slower wrapper around the subroutine generic interface setFFTR.
As such, this functional interface can be significantly slower than the corresponding subroutine interface.

See also: getFFTF
getFFTR
getFFTI
setFFTF
setFFTR
setFFTI

Example usage ⛓

: 1program example

2

3 use pm_kind, only: SK, IK, LK

4 use pm_io, only: display_type

5 use pm_fftpack, only: getfactorFFT

6 use pm_fftpack, only: getFFTF, getFFTI

7 use pm_distUnif, only: getUnifRand

8 use pm_mathCompare, only: isClose

9 use pm_err, only: setAsserted

10

11 implicit none

12

13 integer(IK) :: i

14 integer(IK) :: lenData

15 type(display_type) :: disp

16 disp = display_type(file = "main.out.F90")

17

18 do i = 1, 5

19 block

20 use pm_kind, only: TKC => CKS

21 real(TKC) :: reltol

22 complex(TKC), allocatable :: data(:), adat(:)

23 call disp%show("lenData = getUnifRand(5, 100)")

24 lenData = getUnifRand(5, 100)

25 call disp%show("lenData")

26 call disp%show( lenData )

27 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")

28 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

29 call disp%show("data")

30 call disp%show( data )

31 call disp%skip()

32 call disp%show("adat = getFFTI(getFFTF(data))")

33 adat = getFFTI(getFFTF(data))

34 call disp%show("adat")

35 call disp%show( adat )

36 call disp%show("reltol = sqrt(epsilon(1._TKC))")

37 reltol = sqrt(epsilon(1._TKC))

38 call disp%show("reltol")

39 call disp%show( reltol )

40 call disp%show("isClose(data, adat, reltol = reltol)")

41 call disp%show( isClose(data, adat, reltol = reltol) )

42 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

43 call setAsserted(all(isClose(data, adat, reltol = reltol)))

44 call disp%skip()

45 end block

46

47 block

48 use pm_kind, only: TKC => CKD

49 real(TKC) :: reltol

50 complex(TKC), allocatable :: data(:), adat(:)

51 call disp%show("lenData = getUnifRand(5, 100)")

52 lenData = getUnifRand(5, 100)

53 call disp%show("lenData")

54 call disp%show( lenData )

55 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")

56 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

57 call disp%show("data")

58 call disp%show( data )

59 call disp%skip()

60 call disp%show("adat = getFFTI(getFFTF(data))")

61 adat = getFFTI(getFFTF(data))

62 call disp%show("adat")

63 call disp%show( adat )

64 call disp%show("reltol = sqrt(epsilon(1._TKC))")

65 reltol = sqrt(epsilon(1._TKC))

66 call disp%show("reltol")

67 call disp%show( reltol )

68 call disp%show("isClose(data, adat, reltol = reltol)")

69 call disp%show( isClose(data, adat, reltol = reltol) )

70 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

71 call setAsserted(all(isClose(data, adat, reltol = reltol)))

72 call disp%skip()

73 end block

74

75 block

76 use pm_kind, only: TKC => CKH

77 real(TKC) :: reltol

78 complex(TKC), allocatable :: data(:), adat(:)

79 call disp%show("lenData = getUnifRand(5, 100)")

80 lenData = getUnifRand(5, 100)

81 call disp%show("lenData")

82 call disp%show( lenData )

83 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")

84 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

85 call disp%show("data")

86 call disp%show( data )

87 call disp%skip()

88 call disp%show("adat = getFFTI(getFFTF(data))")

89 adat = getFFTI(getFFTF(data))

90 call disp%show("adat")

91 call disp%show( adat )

92 call disp%show("reltol = sqrt(epsilon(1._TKC))")

93 reltol = sqrt(epsilon(1._TKC))

94 call disp%show("reltol")

95 call disp%show( reltol )

96 call disp%show("isClose(data, adat, reltol = reltol)")

97 call disp%show( isClose(data, adat, reltol = reltol) )

98 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

99 call setAsserted(all(isClose(data, adat, reltol = reltol)))

100 call disp%skip()

101 end block

102

103 block

104 use pm_kind, only: TKC => RKS

105 real(TKC) :: reltol

106 real(TKC), allocatable :: data(:), adat(:)

107 call disp%show("lenData = getUnifRand(5, 100)")

108 lenData = getUnifRand(5, 100)

109 call disp%show("lenData")

110 call disp%show( lenData )

111 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")

112 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

113 call disp%show("data")

114 call disp%show( data )

115 call disp%skip()

116 call disp%show("adat = getFFTI(getFFTF(data))")

117 adat = getFFTI(getFFTF(data))

118 call disp%show("adat")

119 call disp%show( adat )

120 call disp%show("reltol = sqrt(epsilon(1._TKC))")

121 reltol = sqrt(epsilon(1._TKC))

122 call disp%show("reltol")

123 call disp%show( reltol )

124 call disp%show("isClose(data, adat, reltol = reltol)")

125 call disp%show( isClose(data, adat, reltol = reltol) )

126 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

127 call setAsserted(all(isClose(data, adat, reltol = reltol)))

128 call disp%skip()

129 end block

130

131 block

132 use pm_kind, only: TKC => RKD

133 real(TKC) :: reltol

134 real(TKC), allocatable :: data(:), adat(:)

135 call disp%show("lenData = getUnifRand(5, 100)")

136 lenData = getUnifRand(5, 100)

137 call disp%show("lenData")

138 call disp%show( lenData )

139 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")

140 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

141 call disp%show("data")

142 call disp%show( data )

143 call disp%skip()

144 call disp%show("adat = getFFTI(getFFTF(data))")

145 adat = getFFTI(getFFTF(data))

146 call disp%show("adat")

147 call disp%show( adat )

148 call disp%show("reltol = sqrt(epsilon(1._TKC))")

149 reltol = sqrt(epsilon(1._TKC))

150 call disp%show("reltol")

151 call disp%show( reltol )

152 call disp%show("isClose(data, adat, reltol = reltol)")

153 call disp%show( isClose(data, adat, reltol = reltol) )

154 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

155 call setAsserted(all(isClose(data, adat, reltol = reltol)))

156 call disp%skip()

157 end block

158

159 block

160 use pm_kind, only: TKC => RKH

161 real(TKC) :: reltol

162 real(TKC), allocatable :: data(:), adat(:)

163 call disp%show("lenData = getUnifRand(5, 100)")

164 lenData = getUnifRand(5, 100)

165 call disp%show("lenData")

166 call disp%show( lenData )

167 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")

168 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

169 call disp%show("data")

170 call disp%show( data )

171 call disp%skip()

172 call disp%show("adat = getFFTI(getFFTF(data))")

173 adat = getFFTI(getFFTF(data))

174 call disp%show("adat")

175 call disp%show( adat )

176 call disp%show("reltol = sqrt(epsilon(1._TKC))")

177 reltol = sqrt(epsilon(1._TKC))

178 call disp%show("reltol")

179 call disp%show( reltol )

180 call disp%show("isClose(data, adat, reltol = reltol)")

181 call disp%show( isClose(data, adat, reltol = reltol) )

182 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

183 call setAsserted(all(isClose(data, adat, reltol = reltol)))

184 call disp%skip()

185 end block

186 end do

187

188end program example

pm_distUnif::getUnifRand
Generate and return a scalar or a contiguous array of rank 1 of length s1 of randomly uniformly distr...
Definition: pm_distUnif.F90:4112

pm_err::setAsserted
Verify the input assertion holds and if it does not, print the (optional) input message on stdout and...
Definition: pm_err.F90:735

pm_err::show
Generate and return an object of type stop_type with the user-specified input attributes.
Definition: pm_err.F90:1618

pm_fftpack::getFFTF
Generate and return the Forward Fourier Transform (a.k.a. Fourier Analysis) of a periodic sequence of...
Definition: pm_fftpack.F90:746

pm_io::skip
This is a generic method of the derived type display_type with pass attribute.
Definition: pm_io.F90:11131

pm_mathCompare::isClose
Generate and return .true. if the two input values are sufficiently close to each other within the sp...
Definition: pm_mathCompare.F90:535

pm_distUnif
This module contains classes and procedures for computing various statistical quantities related to t...
Definition: pm_distUnif.F90:274

pm_err
This module contains classes and procedures for reporting and handling errors.
Definition: pm_err.F90:52

pm_io
This module contains classes and procedures for input/output (IO) or generic display operations on st...
Definition: pm_io.F90:252

pm_io::disp
type(display_type) disp
This is a scalar module variable an object of type display_type for general display.
Definition: pm_io.F90:11016

pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268

pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541

pm_kind::CKH
integer, parameter CKH
The scalar integer constant of intrinsic default kind, representing the highest-precision complex kin...
Definition: pm_kind.F90:843

pm_kind::CKS
integer, parameter CKS
The single-precision complex kind in Fortran mode. On most platforms, this is a 32-bit real kind.
Definition: pm_kind.F90:570

pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540

pm_kind::CKD
integer, parameter CKD
The double precision complex kind in Fortran mode. On most platforms, this is a 64-bit real kind.
Definition: pm_kind.F90:571

pm_kind::RKD
integer, parameter RKD
The double precision real kind in Fortran mode. On most platforms, this is an 64-bit real kind.
Definition: pm_kind.F90:568

pm_kind::SK
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539

pm_kind::RKH
integer, parameter RKH
The scalar integer constant of intrinsic default kind, representing the highest-precision real kind t...
Definition: pm_kind.F90:858

pm_kind::RKS
integer, parameter RKS
The single-precision real kind in Fortran mode. On most platforms, this is an 32-bit real kind.
Definition: pm_kind.F90:567

pm_mathCompare
This module contains the procedures and interfaces for evaluating the relative or absolute proximity ...
Definition: pm_mathCompare.F90:205

pm_io::display_type
Generate and return an object of type display_type.
Definition: pm_io.F90:10282

Example Unix compile command via Intel ifort compiler ⛓
1#!/usr/bin/env sh

2rm main.exe

3ifort -fpp -standard-semantics -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte_fortran_*_intel* -o main.exe

4./main.exe

Example Windows Batch compile command via Intel ifort compiler ⛓
1del main.exe

2set PATH=..\..\..\lib;%PATH%

3ifort /fpp /standard-semantics /O3 /I:..\..\..\include main.F90 ..\..\..\lib\libparamonte_fortran_*_intel*.lib /exe:main.exe

4main.exe

Example Unix / MinGW compile command via GNU gfortran compiler ⛓
1#!/usr/bin/env sh

2rm main.exe

3gfortran -cpp -ffree-line-length-none -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte_fortran_*_gnu* -o main.exe

4./main.exe

Example output ⛓
1lenData = getUnifRand(5, 100)

2lenData

3+55

4data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

5data

6(+1.29087257, +0.109887719), (+1.15384150, +0.623713911), (+1.61468053, +0.122535884), (+1.73176086, +0.698270917), (+1.76754141, +0.548996747), (+1.15898275, +0.421029925), (+1.75046277, +0.753420889), (+1.42904508, +0.251938820), (+1.33481932, +0.839826584), (+1.19055712, +0.206923008), (+1.90525508, +0.937070787), (+1.28421557, +0.485726595E-1), (+1.70848846, +0.696353495), (+1.25916386, +0.540721595), (+1.51736856, +0.213276744), (+1.55151176, +0.257790685), (+1.45581269, +0.652553856), (+1.94686079, +0.494967103), (+1.68467546, +0.236435175), (+1.99209142, +0.568418145), (+1.61284733, +0.395374298), (+1.59966981, +0.900949240), (+1.56157053, +0.664469481), (+1.88388371, +0.895345032), (+1.27556276, +0.219506145), (+1.90526438, +0.660537362), (+1.27120948, +0.880835235), (+1.09746885, +0.163925052), (+1.30323446, +0.109680116), (+1.64480352, +0.469700217), (+1.59106314, +0.685015321), (+1.74227619, +0.566476703), (+1.96759677, +0.318139970), (+1.53126431, +0.465069711), (+1.37541223, +0.151541352), (+1.33507597, +0.148704588), (+1.86432242, +0.279921770), (+1.25432014, +0.349992156), (+1.59954762, +0.115095913), (+1.99649262, +0.303634346), (+1.16383564, +0.811141372), (+1.75872588, +0.483491302), (+1.44194674, +0.727540731), (+1.93893385, +0.808071434), (+1.05354929, +0.942080855), (+1.25083947, +0.202495277), (+1.54050303, +0.544674218), (+1.35218537, +0.703149140), (+1.86080670, +0.856577456), (+1.09244704, +0.538634539), (+1.48985672, +0.511338413), (+1.27924109, +0.882193565), (+1.59187651, +0.878114700), (+1.75785744, +0.193123102), (+1.06709719, +0.588017762)

7

8adat = getFFTI(getFFTF(data))

9adat

10(+1.29087245, +0.109887622), (+1.15384114, +0.623713791), (+1.61468005, +0.122535832), (+1.73176038, +0.698270679), (+1.76754117, +0.548996687), (+1.15898275, +0.421030134), (+1.75046301, +0.753421068), (+1.42904460, +0.251938760), (+1.33481860, +0.839826524), (+1.19055641, +0.206922919), (+1.90525460, +0.937070549), (+1.28421545, +0.485726073E-1), (+1.70848858, +0.696353316), (+1.25916350, +0.540721416), (+1.51736867, +0.213276818), (+1.55151165, +0.257790685), (+1.45581317, +0.652554035), (+1.94686151, +0.494967282), (+1.68467510, +0.236435130), (+1.99209094, +0.568418145), (+1.61284697, +0.395374298), (+1.59966969, +0.900949180), (+1.56157053, +0.664469421), (+1.88388360, +0.895344853), (+1.27556276, +0.219506085), (+1.90526414, +0.660537124), (+1.27120924, +0.880835235), (+1.09746945, +0.163925052), (+1.30323493, +0.109680101), (+1.64480340, +0.469700247), (+1.59106290, +0.685015321), (+1.74227583, +0.566476822), (+1.96759665, +0.318139791), (+1.53126454, +0.465069771), (+1.37541223, +0.151541293), (+1.33507574, +0.148704529), (+1.86432230, +0.279921830), (+1.25432014, +0.349992096), (+1.59954798, +0.115096003), (+1.99649334, +0.303634405), (+1.16383493, +0.811141312), (+1.75872564, +0.483491331), (+1.44194651, +0.727540612), (+1.93893373, +0.808071017), (+1.05354929, +0.942080796), (+1.25083935, +0.202495292), (+1.54050291, +0.544674098), (+1.35218525, +0.703149021), (+1.86080647, +0.856577456), (+1.09244752, +0.538634896), (+1.48985720, +0.511338532), (+1.27924085, +0.882193744), (+1.59187615, +0.878114522), (+1.75785708, +0.193123102), (+1.06709707, +0.588017642)

11reltol = sqrt(epsilon(1._TKC))

12reltol

13+0.345266977E-3

14isClose(data, adat, reltol = reltol)

15T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

16call setAsserted(all(isClose(data, adat, reltol = reltol)))

17

18lenData = getUnifRand(5, 100)

19lenData

20+36

21data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

22data

23(+1.7532432482314395, +0.81775487204154951E-1), (+1.6767795835155568, +0.37368773874896366), (+1.5191425573041724, +0.11949369306620394), (+1.5042187781586924, +0.10382437459457650), (+1.2425344958892834, +0.18218345024263760), (+1.6766817216976242, +0.53196321536815017), (+1.0217197364821771, +0.92758582250268884), (+1.4539251749137261, +0.99880169608254432), (+1.8597276181190618, +0.51531779483710649), (+1.9075168152660016, +0.93449756154499686), (+1.5813254422742744, +0.71340679783367456), (+1.4418890523790582, +0.48105648558980674), (+1.4005415932687928, +0.15736401810947098), (+1.2247857052969762, +0.22833279383102267), (+1.4456139672283848, +0.64544577609134512), (+1.0924169586795607, +0.21090582046469386), (+1.3450416745851066, +0.92136279060776383), (+1.9929591151157346, +0.87390392494739833), (+1.8560518795404708, +0.60848237292492335E-2), (+1.7218951977698747, +0.75922832980728816), (+1.7710181949028705, +0.53800781739464443), (+1.3342368227179802, +0.64535710100308863), (+1.2310778375687430, +0.54601031351832807E-1), (+1.7752052512415293, +0.62669481853523146), (+1.6499441870587743, +0.10508244214850593), (+1.7652849028655710, +0.34035303317133359), (+1.2459547726383966, +0.74861684185597244E-1), (+1.7617760277654257, +0.69035831447247953), (+1.1666171453111263, +0.69434568146110953), (+1.4341671092165105, +0.72257231972137004), (+1.5077515486157391, +0.64868421782041730), (+1.9421648281440294, +0.96563179579319613), (+1.2467827506368001, +0.29729796611884929), (+1.6048308978610035, +0.96886348095610886), (+1.6367156405373098, +0.28367855350002980), (+1.3989859761340191, +0.40122351828606506)

24

25adat = getFFTI(getFFTF(data))

26adat

27(+1.7532432482314393, +0.81775487204154909E-1), (+1.6767795835155570, +0.37368773874896349), (+1.5191425573041719, +0.11949369306620380), (+1.5042187781586922, +0.10382437459457636), (+1.2425344958892832, +0.18218345024263785), (+1.6766817216976238, +0.53196321536815006), (+1.0217197364821766, +0.92758582250268873), (+1.4539251749137263, +0.99880169608254432), (+1.8597276181190616, +0.51531779483710649), (+1.9075168152660014, +0.93449756154499664), (+1.5813254422742740, +0.71340679783367433), (+1.4418890523790577, +0.48105648558980657), (+1.4005415932687926, +0.15736401810947090), (+1.2247857052969762, +0.22833279383102251), (+1.4456139672283841, +0.64544577609134524), (+1.0924169586795605, +0.21090582046469369), (+1.3450416745851064, +0.92136279060776372), (+1.9929591151157342, +0.87390392494739810), (+1.8560518795404708, +0.60848237292493931E-2), (+1.7218951977698747, +0.75922832980728805), (+1.7710181949028703, +0.53800781739464432), (+1.3342368227179799, +0.64535710100308841), (+1.2310778375687426, +0.54601031351832904E-1), (+1.7752052512415288, +0.62669481853523135), (+1.6499441870587737, +0.10508244214850584), (+1.7652849028655710, +0.34035303317133336), (+1.2459547726383962, +0.74861684185597202E-1), (+1.7617760277654251, +0.69035831447247942), (+1.1666171453111260, +0.69434568146110953), (+1.4341671092165102, +0.72257231972137004), (+1.5077515486157389, +0.64868421782041719), (+1.9421648281440294, +0.96563179579319591), (+1.2467827506367999, +0.29729796611884934), (+1.6048308978610031, +0.96886348095610852), (+1.6367156405373093, +0.28367855350002980), (+1.3989859761340189, +0.40122351828606506)

28reltol = sqrt(epsilon(1._TKC))

29reltol

30+0.14901161193847656E-7

31isClose(data, adat, reltol = reltol)

32T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

33call setAsserted(all(isClose(data, adat, reltol = reltol)))

34

35lenData = getUnifRand(5, 100)

36lenData

37+21

38data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

39data

40(+1.72702669605745766958663907965602192, +0.994771052763857130911037637689461364E-1), (+1.39252311324861267493953038904316377, +0.875686522838178784161590826815905410), (+1.27489055666381784599933716460947870, +0.183973454662942834530890748122750589), (+1.28340852035949594824810240543593746, +0.852311663122145446579958487866876094E-1), (+1.52145216825392290860429693474190090, +0.932394417382709698225995183220454577), (+1.50966385822742043640100711787606820, +0.114178018022861252600133394258071129E-1), (+1.35753135076661449503327628399933148, +0.147550475412119681030427967806554598), (+1.03629115386606403059186393050597596, +0.859372868461236300271037564042884787), (+1.70640199195756129893575831320161884, +0.117606514705079304780275666139582613), (+1.95466851433631128484256621849571534, +0.756768543306093941711889102171780045), (+1.72212071632997932673466778640618286, +0.132838934467433525630422589545170321), (+1.60331311510382060649236576268815263, +0.412059140784528191913542032992703280), (+1.39370344957849691030986022769196375, +0.278094117533097180675990308585307715), (+1.59284494028096254666043771909879139, +0.209942574344893885389597511511503682E-1), (+1.72122402733882522285155626530856488, +0.780570724862501681012263574952210536), (+1.57391447923565557946534958392875989, +0.895288153544338134741401791121814481), (+1.91974442479723663455075144778960096, +0.779830641875281381003187385503905828), (+1.87821406047130518239153244262382436, +0.511005053104793600664877437537123797), (+1.21215602813137720145431438159512390, +0.345793165255509068549216921370691940), (+1.89487927434013042758006791059169446, +0.214737846641871653237520152814631837E-1), (+1.76007507432849202841286163286334176, +0.122492891536076304649296922919940416)

41

42adat = getFFTI(getFFTF(data))

43adat

44(+1.72702669605745766958663907965602192, +0.994771052763857130911037637689460762E-1), (+1.39252311324861267493953038904316377, +0.875686522838178784161590826815905410), (+1.27489055666381784599933716460947851, +0.183973454662942834530890748122750541), (+1.28340852035949594824810240543593707, +0.852311663122145446579958487866875853E-1), (+1.52145216825392290860429693474190052, +0.932394417382709698225995183220454481), (+1.50966385822742043640100711787606839, +0.114178018022861252600133394258071039E-1), (+1.35753135076661449503327628399933129, +0.147550475412119681030427967806554598), (+1.03629115386606403059186393050597557, +0.859372868461236300271037564042884787), (+1.70640199195756129893575831320161865, +0.117606514705079304780275666139582577), (+1.95466851433631128484256621849571514, +0.756768543306093941711889102171780045), (+1.72212071632997932673466778640618247, +0.132838934467433525630422589545170201), (+1.60331311510382060649236576268815244, +0.412059140784528191913542032992703377), (+1.39370344957849691030986022769196375, +0.278094117533097180675990308585307715), (+1.59284494028096254666043771909879120, +0.209942574344893885389597511511505097E-1), (+1.72122402733882522285155626530856469, +0.780570724862501681012263574952210536), (+1.57391447923565557946534958392875970, +0.895288153544338134741401791121814577), (+1.91974442479723663455075144778960057, +0.779830641875281381003187385503905539), (+1.87821406047130518239153244262382417, +0.511005053104793600664877437537123509), (+1.21215602813137720145431438159512371, +0.345793165255509068549216921370691795), (+1.89487927434013042758006791059169427, +0.214737846641871653237520152814631506E-1), (+1.76007507432849202841286163286334176, +0.122492891536076304649296922919940464)

45reltol = sqrt(epsilon(1._TKC))

46reltol

47+0.138777878078144567552953958511352539E-16

48isClose(data, adat, reltol = reltol)

49T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

50call setAsserted(all(isClose(data, adat, reltol = reltol)))

51

52lenData = getUnifRand(5, 100)

53lenData

54+71

55data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

56data

57+1.80888939, +1.23921013, +1.80600917, +1.86545384, +1.04162252, +1.75398982, +1.25622201, +1.91458130, +1.00754285, +1.93467855, +1.17698097, +1.18191504, +1.76708961, +1.46298194, +1.16518736, +1.34174800, +1.68251109, +1.25567806, +1.86732101, +1.01425362, +1.64099216, +1.37697816, +1.39814806, +1.23379755, +1.62604928, +1.68765330, +1.75189519, +1.28137374, +1.33348393, +1.69766903, +1.39892745, +1.93053865, +1.07209575, +1.39696300, +1.88584876, +1.63938236, +1.87620008, +1.06659019, +1.54425216, +1.83143020, +1.86336637, +1.28811312, +1.66735649, +1.12312007, +1.08255982, +1.71697450, +1.48329103, +1.29601455, +1.91142631, +1.27082300, +1.95058191, +1.53035414, +1.95464158, +1.07018423, +1.85305667, +1.74142838, +1.12760758, +1.73917675, +1.81252992, +1.65488648, +1.58551717, +1.53404605, +1.15244341, +1.88266981, +1.22664309, +1.41880822, +1.50845718, +1.77916586, +1.76700044, +1.80170345, +1.47245955

58

59adat = getFFTI(getFFTF(data))

60adat

61+1.80888903, +1.23920965, +1.80600941, +1.86545503, +1.04162121, +1.75399160, +1.25622058, +1.91458404, +1.00753951, +1.93468165, +1.17698050, +1.18191302, +1.76709163, +1.46298110, +1.16518629, +1.34174705, +1.68251383, +1.25567448, +1.86732650, +1.01424789, +1.64099514, +1.37697613, +1.39814818, +1.23379469, +1.62605107, +1.68765378, +1.75189817, +1.28137064, +1.33348274, +1.69767225, +1.39892364, +1.93054557, +1.07208908, +1.39696264, +1.88585496, +1.63937747, +1.87620580, +1.06658316, +1.54425406, +1.83143246, +1.86337042, +1.28810847, +1.66736090, +1.12311649, +1.08255553, +1.71697831, +1.48329103, +1.29601097, +1.91143167, +1.27081752, +1.95058644, +1.53035092, +1.95464694, +1.07017767, +1.85306001, +1.74142885, +1.12760508, +1.73917782, +1.81253028, +1.65488577, +1.58551681, +1.53404653, +1.15244138, +1.88267195, +1.22664177, +1.41880906, +1.50845730, +1.77916682, +1.76700068, +1.80170357, +1.47245920

62reltol = sqrt(epsilon(1._TKC))

63reltol

64+0.345266977E-3

65isClose(data, adat, reltol = reltol)

66T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

67call setAsserted(all(isClose(data, adat, reltol = reltol)))

68

69lenData = getUnifRand(5, 100)

70lenData

71+67

72data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

73data

74+1.6516899681232839, +1.3817041765262994, +1.1875528751881315, +1.5320923550194450, +1.8996386640086800, +1.5354265581797586, +1.7021820399548770, +1.0085716090874695, +1.3883745628494624, +1.3994870896825047, +1.5197960807193303, +1.2931785724823055, +1.3093867976021158, +1.2889919702509360, +1.7810223812036319, +1.9736553074659204, +1.9780390814653601, +1.4906464485853812, +1.7476728818815381, +1.6275373834144991, +1.0118105639060682, +1.6453353331835066, +1.7262400937079332, +1.0945533545502788, +1.0317558138554048, +1.6484996843660675, +1.7949244817174113, +1.1935048800892964, +1.3639150355017895, +1.5051238861457592, +1.4327711771650282, +1.5353679649750367, +1.8976430685348920, +1.2330509346969747, +1.4555437116111551, +1.7469293580862528, +1.5162220490594409, +1.0805114228358270, +1.7619488191415362, +1.6493929343165845, +1.7496006469383190, +1.4076620916497939, +1.7735440300831757, +1.4773983776626907, +1.7273723636200544, +1.6096876618319587, +1.2833946216638248, +1.7590637538657470, +1.1004760372182643, +1.3399606189270132, +1.6245484539687327, +1.3140752490361067, +1.1281124333663755, +1.0406388082015674, +1.3471135207160665, +1.5931907430159735, +1.2919022337017585, +1.5494834584649695, +1.9116704682621859, +1.1996248451444571, +1.0386154953103561, +1.1361918561926285, +1.3291134891288348, +1.1273731533498497, +1.5775167410366135, +1.3379359467338250, +1.0118397708647846

75

76adat = getFFTI(getFFTF(data))

77adat

78+1.6516899681232831, +1.3817041765262987, +1.1875528751881301, +1.5320923550194439, +1.8996386640086802, +1.5354265581797575, +1.7021820399548770, +1.0085716090874688, +1.3883745628494608, +1.3994870896825047, +1.5197960807193294, +1.2931785724823057, +1.3093867976021158, +1.2889919702509347, +1.7810223812036321, +1.9736553074659209, +1.9780390814653601, +1.4906464485853796, +1.7476728818815386, +1.6275373834144986, +1.0118105639060673, +1.6453353331835072, +1.7262400937079343, +1.0945533545502792, +1.0317558138554033, +1.6484996843660678, +1.7949244817174110, +1.1935048800892971, +1.3639150355017888, +1.5051238861457603, +1.4327711771650264, +1.5353679649750340, +1.8976430685348864, +1.2330509346969796, +1.4555437116111567, +1.7469293580862482, +1.5162220490594354, +1.0805114228358252, +1.7619488191415378, +1.6493929343165854, +1.7496006469383187, +1.4076620916497928, +1.7735440300831755, +1.4773983776626922, +1.7273723636200542, +1.6096876618319609, +1.2833946216638241, +1.7590637538657490, +1.1004760372182629, +1.3399606189270126, +1.6245484539687329, +1.3140752490361056, +1.1281124333663737, +1.0406388082015658, +1.3471135207160649, +1.5931907430159733, +1.2919022337017576, +1.5494834584649690, +1.9116704682621866, +1.1996248451444549, +1.0386154953103555, +1.1361918561926279, +1.3291134891288341, +1.1273731533498477, +1.5775167410366140, +1.3379359467338237, +1.0118397708647828

79reltol = sqrt(epsilon(1._TKC))

80reltol

81+0.14901161193847656E-7

82isClose(data, adat, reltol = reltol)

83T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

84call setAsserted(all(isClose(data, adat, reltol = reltol)))

85

86lenData = getUnifRand(5, 100)

87lenData

88+89

89data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

90data

91+1.40168425439101358642718711544179194, +1.23083768756253783543300128825751566, +1.10492720284815321729348783628615358, +1.20527348317311572595817166915257371, +1.44359551080977825327892301386790077, +1.46433658838816087888946940221082248, +1.49594129828859036315085291319421530, +1.02180658260870616473873488614382587, +1.93851532159429200426860662251487537, +1.15884887499576915545355039313074960, +1.06523196047061727029810606469187941, +1.60640541390263880629892821426156291, +1.67874812913607370776235350192434808, +1.17533113469675114643823772122057163, +1.92342723014474212080792407603037439, +1.37098905020724872365838402528217997, +1.20517486971200962198897604395169151, +1.60586755982351512343602383550512752, +1.66312671134952835664014595055170663, +1.29360250703683971565390427577153853, +1.51727502255506795833537572164273225, +1.59270048826853533846366061189317417, +1.63935685224552150899220473322385452, +1.22488464641588772549451316948678163, +1.84229186644347089796604565479160265, +1.05525574327263604705668228751903630, +1.89126482770850005958509820524780609, +1.52877695904600564163543399220243847, +1.79210680838960508748667101924960447, +1.86751355738962174840503460275663906, +1.18715487163463789779771517023907147, +1.83121479912469024708133478147374507, +1.11156061023409774118186858446635614, +1.38519517849853471251566896863002850, +1.44608812825965010767924349575802699, +1.28100597444104328231759672743296928, +1.75463953246344608339633980473061461, +1.44353274181004370626129212660102698, +1.38852847975109544151268922081439766, +1.69537722929655934813915977106094889, +1.60194448058752765238145793506100524, +1.09798097789912815400713666323711620, +1.76122837906520315724885951355015176, +1.94775227833752639504612275717594049, +1.96465904874538197731337892140882133, +1.06429689265247732684610747249032999, +1.41981254069130305864687581213835560, +1.83008448427985377579845467593224728, +1.77896756457271940897835753002416400, +1.74807221013390351762366495858816918, +1.12535072071933080722846163325217724, +1.45663716492646844181973868966688924, +1.95155866271496378662368206054478488, +1.26136036998941689903196746832865224, +1.36703862190990238266909528151277219, +1.12814764825387967843128490673470598, +1.30058907983320704553052515773605976, +1.17831980401549687124649916268642289, +1.34552948105118275007168862722325588, +1.97961657579301323800038902864862759, +1.02176159963063123335496587145288561, +1.90743463845861825647999228791736914, +1.08888075356155107804702925912334241, +1.80097699983974925160786027933993417, +1.00441171686161735743759268540755682, +1.53805915569718171593611087536322004, +1.78590927092374143970091071937703627, +1.68052847558743126843599847271225197, +1.25691220776268733670905828015725729, +1.76842698441613162731645365252623415, +1.93626199349865373234234320346334106, +1.39299534630028527789815015032796643, +1.74474956987273502873351880280017437, +1.64560194291024826691556304936834177, +1.03651655908322001368540948628380695, +1.96598941776733196020487502338870258, +1.31117838475806206295376891316953868, +1.76275954765212195912344260699639232, +1.26119323227081803540593137289585433, +1.08147792380259153061088404134210078, +1.89615182371982108587823353337285563, +1.68779751827934752714364466192421873, +1.38186850488368683088903608670093156, +1.03156929475552656781168768156589475, +1.19241534855089611222276226988577057, +1.05292937196712375641026887460399551, +1.43136062583498931463614564167919931, +1.62678361616915729076663803095419995, +1.16874097513330354937914178150463632

92

93adat = getFFTI(getFFTF(data))

94adat

95+1.40168425439101358642718711544178925, +1.23083768756253783543300128825751546, +1.10492720284815321729348783628615127, +1.20527348317311572595817166915257274, +1.44359551080977825327892301386790058, +1.46433658838816087888946940221082209, +1.49594129828859036315085291319421569, +1.02180658260870616473873488614381835, +1.93851532159429200426860662251488230, +1.15884887499576915545355039313074421, +1.06523196047061727029810606469187402, +1.60640541390263880629892821426156542, +1.67874812913607370776235350192435347, +1.17533113469675114643823772122055776, +1.92342723014474212080792407603039211, +1.37098905020724872365838402528217362, +1.20517486971200962198897604395168285, +1.60586755982351512343602383550513234, +1.66312671134952835664014595055171338, +1.29360250703683971565390427577152832, +1.51727502255506795833537572164273398, +1.59270048826853533846366061189317475, +1.63935685224552150899220473322386453, +1.22488464641588772549451316948676141, +1.84229186644347089796604565479163212, +1.05525574327263604705668228751900028, +1.89126482770850005958509820524783382, +1.52877695904600564163543399220242537, +1.79210680838960508748667101924961449, +1.86751355738962174840503460275665813, +1.18715487163463789779771517023904239, +1.83121479912469024708133478147377839, +1.11156061023409774118186858446633091, +1.38519517849853471251566896863003254, +1.44608812825965010767924349575802969, +1.28100597444104328231759672743295272, +1.75463953246344608339633980473063849, +1.44353274181004370626129212660102120, +1.38852847975109544151268922081438784, +1.69537722929655934813915977106096410, +1.60194448058752765238145793506102007, +1.09798097789912815400713666323707191, +1.76122837906520315724885951355016293, +1.94775227833752639504612275717595243, +1.96465904874538197731337892140886370, +1.06429689265247732684610747249028897, +1.41981254069130305864687581213835252, +1.83008448427985377579845467593226269, +1.77896756457271940897835753002416881, +1.74807221013390351762366495858818517, +1.12535072071933080722846163325214527, +1.45663716492646844181973868966688770, +1.95155866271496378662368206054482609, +1.26136036998941689903196746832863125, +1.36703862190990238266909528151277893, +1.12814764825387967843128490673469135, +1.30058907983320704553052515773606265, +1.17831980401549687124649916268641866, +1.34552948105118275007168862722324317, +1.97961657579301323800038902864867188, +1.02176159963063123335496587145284151, +1.90743463845861825647999228791740959, +1.08888075356155107804702925912330775, +1.80097699983974925160786027933996730, +1.00441171686161735743759268540752639, +1.53805915569718171593611087536322639, +1.78590927092374143970091071937704744, +1.68052847558743126843599847271225737, +1.25691220776268733670905828015723957, +1.76842698441613162731645365252623993, +1.93626199349865373234234320346335589, +1.39299534630028527789815015032795275, +1.74474956987273502873351880280017918, +1.64560194291024826691556304936835005, +1.03651655908322001368540948628378615, +1.96598941776733196020487502338872184, +1.31117838475806206295376891316952828, +1.76275954765212195912344260699640060, +1.26119323227081803540593137289585010, +1.08147792380259153061088404134209115, +1.89615182371982108587823353337286507, +1.68779751827934752714364466192421662, +1.38186850488368683088903608670093118, +1.03156929475552656781168768156588994, +1.19241534855089611222276226988577018, +1.05292937196712375641026887460399301, +1.43136062583498931463614564167920027, +1.62678361616915729076663803095419975, +1.16874097513330354937914178150463498

96reltol = sqrt(epsilon(1._TKC))

97reltol

98+0.138777878078144567552953958511352539E-16

99isClose(data, adat, reltol = reltol)

100T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

101call setAsserted(all(isClose(data, adat, reltol = reltol)))

102

103lenData = getUnifRand(5, 100)

104lenData

105+58

106data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

107data

108(+1.13753426, +0.650802195), (+1.51211286, +0.115652323), (+1.45336819, +0.927028477), (+1.24150693, +0.738092780), (+1.58253765, +0.657320321), (+1.51070559, +0.824201763), (+1.95108855, +0.149545670E-1), (+1.80836892, +0.700602949), (+1.96675372, +0.652309656), (+1.51168609, +0.346788526), (+1.79726505, +0.582076728), (+1.18398213, +0.694909394), (+1.69423997, +0.668362141), (+1.94346690, +0.471317232), (+1.32272315, +0.255790710), (+1.37711072, +0.874770820), (+1.03865504, +0.303755403), (+1.27120602, +0.146935523), (+1.99914932, +0.920135140), (+1.62471604, +0.889818490), (+1.97306728, +0.790493190), (+1.64753079, +0.274036527E-1), (+1.35391355, +0.960499883), (+1.11991799, +0.492855728), (+1.09219003, +0.290834308), (+1.45209503, +0.325354874), (+1.48502922, +0.162511468), (+1.91358042, +0.682474136), (+1.98772395, +0.616354764), (+1.78910398, +0.456529081), (+1.47431779, +0.697702110), (+1.20839572, +0.501736522), (+1.77739918, +0.320829034), (+1.05149651, +0.451257110), (+1.03268337, +0.202593207E-1), (+1.68233728, +0.582703888), (+1.13295364, +0.399719775), (+1.23147142, +0.507217944), (+1.67192507, +0.122589469), (+1.78675628, +0.439837217), (+1.29632998, +0.767821133), (+1.62837815, +0.808696151), (+1.54516125, +0.446901739), (+1.93432522, +0.984656632), (+1.58622146, +0.613632798E-1), (+1.44183660, +0.789963245), (+1.61839020, +0.694535375), (+1.92724609, +0.439491987), (+1.92101312, +0.997033060), (+1.42292881, +0.516878963), (+1.47177815, +0.531151831), (+1.19216740, +0.345371902), (+1.19312942, +0.379676223E-1), (+1.02523065, +0.115024447), (+1.34901011, +0.716131210), (+1.04068065, +0.247973204), (+1.78577924, +0.843025744), (+1.83394384, +0.372400701)

109

110adat = getFFTI(getFFTF(data))

111adat

112(+1.13753557, +0.650802910), (+1.51211202, +0.115652099), (+1.45336807, +0.927028477), (+1.24150634, +0.738092721), (+1.58253717, +0.657320201), (+1.51070523, +0.824201703), (+1.95108819, +0.149545176E-1), (+1.80836880, +0.700602829), (+1.96675372, +0.652309835), (+1.51168597, +0.346788466), (+1.79726517, +0.582076848), (+1.18398249, +0.694909394), (+1.69424009, +0.668362141), (+1.94346738, +0.471317410), (+1.32272363, +0.255791038), (+1.37711132, +0.874771059), (+1.03865540, +0.303755492), (+1.27120626, +0.146935463), (+1.99914968, +0.920135379), (+1.62471616, +0.889818490), (+1.97306728, +0.790493071), (+1.64753091, +0.274036992E-1), (+1.35391366, +0.960499704), (+1.11991763, +0.492855668), (+1.09218943, +0.290834069), (+1.45209491, +0.325354725), (+1.48502910, +0.162511557), (+1.91358030, +0.682474256), (+1.98772335, +0.616354585), (+1.78910565, +0.456529647), (+1.47431719, +0.697701931), (+1.20839560, +0.501736283), (+1.77739906, +0.320829123), (+1.05149639, +0.451257199), (+1.03268266, +0.202591904E-1), (+1.68233716, +0.582703769), (+1.13295352, +0.399719775), (+1.23147118, +0.507217944), (+1.67192483, +0.122589372), (+1.78675628, +0.439837188), (+1.29633009, +0.767821074), (+1.62837827, +0.808695972), (+1.54516137, +0.446901888), (+1.93432617, +0.984656632), (+1.58622217, +0.613635555E-1), (+1.44183707, +0.789963603), (+1.61839044, +0.694535315), (+1.92724621, +0.439492047), (+1.92101312, +0.997033119), (+1.42292881, +0.516878903), (+1.47177804, +0.531152010), (+1.19216716, +0.345371634), (+1.19312894, +0.379675962E-1), (+1.02523041, +0.115024403), (+1.34900951, +0.716131032), (+1.04068053, +0.247973084), (+1.78577924, +0.843025804), (+1.83394301, +0.372400522)

113reltol = sqrt(epsilon(1._TKC))

114reltol

115+0.345266977E-3

116isClose(data, adat, reltol = reltol)

117T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

118call setAsserted(all(isClose(data, adat, reltol = reltol)))

119

120lenData = getUnifRand(5, 100)

121lenData

122+58

123data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

124data

125(+1.7213815972008903, +0.17856493577048971), (+1.3162629037216158, +0.17496054007804962E-1), (+1.4733011035900514, +0.13241739514861350), (+1.6612610282552285, +0.18792111576476456), (+1.7447817650842739, +0.93503547456925051), (+1.8731261451455268, +0.80134862440149646), (+1.5521189430334119, +0.31475972992452084), (+1.8496502933683736, +0.30301895395080003), (+1.0829562636772208, +0.23667758496542535), (+1.7162609244559710, +0.25088094402833427), (+1.8590398942475415, +0.45489098414856799), (+1.7145846682566612, +0.78604653353380827), (+1.0903612822112736, +0.59984158745442062), (+1.7966253405421833, +0.46435538976739044), (+1.1833400367902129, +0.75260966404557594E-1), (+1.1700372955193481, +0.43349315384807474), (+1.2971438118941423, +0.31596313106701635E-1), (+1.8313767459596557, +0.17263789209167535), (+1.9910053508647363, +0.97406614540462755), (+1.5668958055636759, +0.72587195883895139), (+1.9886874746127663, +0.60995832782818493), (+1.2475963183153129, +0.20850130923721066), (+1.9541538096032380, +0.50262435920738779), (+1.0914647807021960, +0.92314896664525081E-1), (+1.3387409609323979, +0.17811593486100918), (+1.8624687072104313, +0.28331271082299558), (+1.5836832314356637, +0.56582093138432443), (+1.0769683476687713, +0.80442061889187766), (+1.4640561742425908, +0.17167365927549427), (+1.9093774669060375, +0.35694292807361094), (+1.9771004644124059, +0.88636996532342049), (+1.6532538981520966, +0.96099107135450257), (+1.1452831541528030, +0.80545581830733859), (+1.6970219621119382, +0.68749486641803170), (+1.0304795413274519, +0.36695685198974592E-1), (+1.7004174271609522, +0.34885117045647229), (+1.3511557140601327, +0.58511672160464290), (+1.7288037450561156, +0.90231584678790033), (+1.0638631414978788, +0.78283044938881619), (+1.4976869231472338, +0.53007511976725141), (+1.0898675248779697, +0.16829910189753650), (+1.2529465663093333, +0.57771503558132187), (+1.2696003181847373, +0.16585245317639818), (+1.7571103317292178, +0.34469302736304497), (+1.1431364742033754, +0.37570021369485407), (+1.4477245921962021, +0.42348997369781682), (+1.4624393895032304, +0.45763327926787900), (+1.9162981174376357, +0.60020797317104890), (+1.2847040011744286, +0.95264868562483229), (+1.9143417717894953, +0.62843808255147460E-1), (+1.0807679192488031, +0.32879915037113105), (+1.4748249945194936, +0.25870009264775584), (+1.7791629101618203, +0.76765354440881095), (+1.7195184645843395, +0.26136891728148626), (+1.5466874752512414, +0.95945236448210802), (+1.7614519510169946, +0.62614086377010081), (+1.7708757092737974, +0.61068334019205817), (+1.3246465023382554, +0.92867121067998637)

126

127adat = getFFTI(getFFTF(data))

128adat

129(+1.7213815972008915, +0.17856493577048990), (+1.3162629037216156, +0.17496054007804941E-1), (+1.4733011035900510, +0.13241739514861342), (+1.6612610282552278, +0.18792111576476447), (+1.7447817650842739, +0.93503547456925051), (+1.8731261451455266, +0.80134862440149623), (+1.5521189430334119, +0.31475972992452089), (+1.8496502933683741, +0.30301895395079992), (+1.0829562636772210, +0.23667758496542529), (+1.7162609244559710, +0.25088094402833416), (+1.8590398942475421, +0.45489098414856799), (+1.7145846682566612, +0.78604653353380827), (+1.0903612822112745, +0.59984158745442062), (+1.7966253405421828, +0.46435538976739010), (+1.1833400367902134, +0.75260966404557553E-1), (+1.1700372955193485, +0.43349315384807485), (+1.2971438118941430, +0.31596313106701808E-1), (+1.8313767459596559, +0.17263789209167543), (+1.9910053508647370, +0.97406614540462755), (+1.5668958055636761, +0.72587195883895150), (+1.9886874746127667, +0.60995832782818515), (+1.2475963183153123, +0.20850130923721041), (+1.9541538096032376, +0.50262435920738757), (+1.0914647807021958, +0.92314896664525067E-1), (+1.3387409609323979, +0.17811593486100941), (+1.8624687072104318, +0.28331271082299564), (+1.5836832314356630, +0.56582093138432432), (+1.0769683476687710, +0.80442061889187777), (+1.4640561742425908, +0.17167365927549416), (+1.9093774669060384, +0.35694292807361139), (+1.9771004644124059, +0.88636996532342027), (+1.6532538981520968, +0.96099107135450279), (+1.1452831541528028, +0.80545581830733837), (+1.6970219621119378, +0.68749486641803204), (+1.0304795413274521, +0.36695685198974586E-1), (+1.7004174271609525, +0.34885117045647240), (+1.3511557140601327, +0.58511672160464290), (+1.7288037450561149, +0.90231584678790000), (+1.0638631414978792, +0.78283044938881652), (+1.4976869231472338, +0.53007511976725130), (+1.0898675248779703, +0.16829910189753658), (+1.2529465663093335, +0.57771503558132198), (+1.2696003181847377, +0.16585245317639824), (+1.7571103317292180, +0.34469302736304513), (+1.1431364742033761, +0.37570021369485423), (+1.4477245921962025, +0.42348997369781671), (+1.4624393895032310, +0.45763327926787895), (+1.9162981174376352, +0.60020797317104868), (+1.2847040011744297, +0.95264868562483218), (+1.9143417717894948, +0.62843808255147723E-1), (+1.0807679192488036, +0.32879915037113111), (+1.4748249945194931, +0.25870009264775584), (+1.7791629101618205, +0.76765354440881095), (+1.7195184645843398, +0.26136891728148615), (+1.5466874752512414, +0.95945236448210824), (+1.7614519510169941, +0.62614086377010081), (+1.7708757092737974, +0.61068334019205828), (+1.3246465023382550, +0.92867121067998604)

130reltol = sqrt(epsilon(1._TKC))

131reltol

132+0.14901161193847656E-7

133isClose(data, adat, reltol = reltol)

134T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

135call setAsserted(all(isClose(data, adat, reltol = reltol)))

136

137lenData = getUnifRand(5, 100)

138lenData

139+90

140data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

141data

142(+1.30064799799713928561708095681440888, +0.198623126322016909020942942523401536), (+1.50416629150099584783043896770822944, +0.475829569562144883296031810287451269), (+1.05963261666503943089248323836549230, +0.979708510558798500707374147755831567), (+1.73205144114603221952844556452630177, +0.680313627797158488909229294669370067), (+1.16318820778425611491935722390578724, +0.313603507919838915040736379250293260), (+1.68130379447275078488775103059082044, +0.938736465307682944383616713689699163E-1), (+1.58835013416687340583312131659775221, +0.776607479892731612980499458843819794), (+1.02372649720225056253065198404122234, +0.858513788413176606436056646587800203), (+1.62916079924457771332399391799537304, +0.127250560670809539869047959706537559), (+1.08185514582622390542364138576171469, +0.325928661722695319966043280493797174), (+1.35960285202627076320462111164624783, +0.585666773991295867804624291783438834), (+1.41618802606924209008666301431953434, +0.847520073926012540709374146776723631), (+1.44965038924417815169901616962187819, +0.345477207562938003218883882213745948), (+1.59509359769515362112385836032445519, +0.879924634444407870777624635704606949), (+1.16071502361444288594128700699340213, +0.147816043237595951855043328155452669), (+1.37889364817733418309334670763019640, +0.466434225596813932033127082745230529E-1), (+1.33862613539625995772125232307263608, +0.194776546626605833999733434032977154), (+1.58636758724347929533395277404353378, +0.212904919127061912807167030763237764), (+1.17341670229004637916630621573131307, +0.436031678366929791420860518674782909), (+1.45741359901498499137251925501083602, +0.965612200827851566531849823399582226), (+1.40189153046850574701654208567534931, +0.609550176029868299027805863935208363), (+1.01756877575234746949521163702028749, +0.253556535780620737181469186437626675), (+1.42518790644605645375255795659682565, +0.316540455092620051177695410739091736), (+1.05835194417049768094886771795551261, +0.599481068420887937039813589145097161E-1), (+1.19434902259897147020707028812097960, +0.543229753009869484630626659412105272), (+1.92498458455923499925708523532712807, +0.977492691075585191935356500668205596), (+1.50554051689862550342375019075004033, +0.720589601473012116113392236294515047), (+1.93881448168326414212733055792640511, +0.335700729589691359959638249838235880), (+1.83737405613726244937320022749476681, +0.363360815049678185652579384667085293), (+1.80643856362253872395441284297687741, +0.376958080682243549972329353160893876E-1), (+1.08565272726180714465638757926184825, +0.613397431033562901917721330848881394), (+1.17311327256193957187651441616118309, +0.112873305930886641420707922847481186), (+1.52904873228301494933479725605191610, +0.760903523221408897312141817738716456), (+1.81866158486367665370893496486098067, +0.659837685581412960937226272350219825), (+1.11361430028280736775928533960818631, +0.281545810161757592689636949822916486), (+1.29713255676226002050763005026626871, +0.591658478007626356005024303373636985), (+1.19925602717848850732573565538634547, +0.190493289102375945762062351619337167), (+1.92514615791491609894387980154074064, +0.833196491909304521158723441239287414), (+1.47354861911325081028461804478500270, +0.897606141576725533483097549131112039), (+1.30804068913323355641407609673448035, +0.918366815245192839175521877402343000), (+1.31880039509676087313464803519990138, +0.634990333991413739766734313337805690), (+1.13443612233206018272481875697447515, +0.310310181760351776123738980910504066), (+1.41101060837548923004512957862371677, +0.282914331052818833031639980765464938), (+1.54600087759221734773589541578878763, +0.771827506681337745403835529696937726), (+1.47739498369510832595608312253814816, +0.700968173830143441828048914320776564), (+1.73793871385870097302101827600429065, +0.434505981341405935981670346171235617), (+1.59089125301421993716886831680972900, +0.729631009892864061890083480374052897), (+1.82459168376592889735209633443542980, +0.375423333147692142598536104357760087), (+1.99700171356842398227710807901713075, +0.263275788770913735803833004563976861), (+1.76924528221822484350876750989016730, +0.136076628813024297082279879715212537), (+1.92351474025828886448357504451711464, +0.840357893990342943765638551490443527), (+1.71156062312693332935989887481276985, +0.993292593112540041787151703667937580), (+1.44172982827399435193950803231887177, +0.610299974757507307772975737447728484), (+1.04863918812710896351548123426125719, +0.628308928595216705909322703277792150), (+1.84103488211532094888885544353962596, +0.510503660251397627542736577678720090), (+1.47972390060268527029198509849044113, +0.398989246305492043990563412643370869), (+1.22481750861759066841419821470021595, +0.177919424525181392100108882750501758), (+1.38099972110535772350119658480072454, +0.560979179979021406082290199132537451), (+1.06148901218350022133219197439925210, +0.634377101969777667100613643429505949), (+1.39359938737372494233848158259295109, +0.945403852815316574739577200855509973), (+1.77606183114340602413453083109021138, +0.763534472395412208978849232073764525), (+1.64603926190256453202537742688646417, +0.637801259893413942902004402960879498), (+1.00437379958704477935716979627110371, +0.313296715199528654724099833546922441), (+1.37261392234162419261393066769352824, +0.710777448885121283826582850760845726), (+1.52806354751640339629171480141933950, +0.480495435117464186240500513586619996), (+1.93192351884178123433957960337712235, +0.558675798385954217512297783887574975), (+1.16534103947236524523207366065270299, +0.687696407167755449205263424454429989), (+1.66150026897910742614184597504045188, +0.769952291019524988753858523838762394), (+1.20112627817941203274447785478467141, +0.736232080426280152113768338034613675), (+1.96505146010673957428114512762273272, +0.659131163022654835135547803763985087), (+1.79481559167400815200282328355223398, +0.684544856890786962129566245878041404E-1), (+1.68321932032467752006402165370958352, +0.490578662723229142187800915404174220), (+1.98904257719317815176322805010322722, +0.884840028555227855603319638644913404), (+1.23024470743027480032916359189328868, +0.687689782019863166341431211518996228E-1), (+1.50283045142323610403894842560357061, +0.821908825351503369433283818289011162), (+1.91225500107825979699770364501400954, +0.763141195519273401796148907938260476), (+1.38176410436044701991082054897902051, +0.915704315960379508127845927742556211), (+1.92620833639748197838691112616262204, +0.375631150380429100057635409681400421), (+1.20954618020300567623332305814232850, +0.196638845162886150200744950959462538), (+1.25677908482620227287847023213480932, +0.570749345798039357594932895179162280), (+1.95598326545565405084534974887328199, +0.313159941255692298250877070121234525), (+1.16929581538011570396602663127578545, +0.517781230918852918633418912046231509), (+1.75704769412536866638826918405862159, +0.432939069276739786339311866770134068), (+1.11148173115366663298690123934528847, +0.679390744880597258602131203101655941), (+1.05436334542671506516713224618873184, +0.182945760935605607766186760047076828), (+1.17761330478355848619166263741660096, +0.557188583638140285363771251343052012), (+1.93844225952789721974810872873214987, +0.774134065213191799353220538708945378), (+1.67705831945203665499923740181105472, +0.967049941405851815172403075585133164), (+1.92803993036329333241434735970962245, +0.171652306206066239836213768479572964), (+1.70160570546971953955703430348505569, +0.181628440934706208762499443591665487)

143

144adat = getFFTI(getFFTF(data))

145adat

146(+1.30064799799713928561708095681440830, +0.198623126322016909020942942523401415), (+1.50416629150099584783043896770822964, +0.475829569562144883296031810287451221), (+1.05963261666503943089248323836549230, +0.979708510558798500707374147755831374), (+1.73205144114603221952844556452630158, +0.680313627797158488909229294669370163), (+1.16318820778425611491935722390578686, +0.313603507919838915040736379250293164), (+1.68130379447275078488775103059081967, +0.938736465307682944383616713689698200E-1), (+1.58835013416687340583312131659775240, +0.776607479892731612980499458843819794), (+1.02372649720225056253065198404122215, +0.858513788413176606436056646587800299), (+1.62916079924457771332399391799537304, +0.127250560670809539869047959706537632), (+1.08185514582622390542364138576171449, +0.325928661722695319966043280493797077), (+1.35960285202627076320462111164624725, +0.585666773991295867804624291783438834), (+1.41618802606924209008666301431953492, +0.847520073926012540709374146776723728), (+1.44965038924417815169901616962187819, +0.345477207562938003218883882213745996), (+1.59509359769515362112385836032445500, +0.879924634444407870777624635704606853), (+1.16071502361444288594128700699340233, +0.147816043237595951855043328155452525), (+1.37889364817733418309334670763019601, +0.466434225596813932033127082745231312E-1), (+1.33862613539625995772125232307263588, +0.194776546626605833999733434032977179), (+1.58636758724347929533395277404353340, +0.212904919127061912807167030763237668), (+1.17341670229004637916630621573131287, +0.436031678366929791420860518674782764), (+1.45741359901498499137251925501083563, +0.965612200827851566531849823399582130), (+1.40189153046850574701654208567534874, +0.609550176029868299027805863935208171), (+1.01756877575234746949521163702028788, +0.253556535780620737181469186437626675), (+1.42518790644605645375255795659682507, +0.316540455092620051177695410739091639), (+1.05835194417049768094886771795551261, +0.599481068420887937039813589145097883E-1), (+1.19434902259897147020707028812097960, +0.543229753009869484630626659412105079), (+1.92498458455923499925708523532712730, +0.977492691075585191935356500668205500), (+1.50554051689862550342375019075004071, +0.720589601473012116113392236294514951), (+1.93881448168326414212733055792640511, +0.335700729589691359959638249838235784), (+1.83737405613726244937320022749476661, +0.363360815049678185652579384667085293), (+1.80643856362253872395441284297687761, +0.376958080682243549972329353160892853E-1), (+1.08565272726180714465638757926184806, +0.613397431033562901917721330848881394), (+1.17311327256193957187651441616118290, +0.112873305930886641420707922847481247), (+1.52904873228301494933479725605191630, +0.760903523221408897312141817738716552), (+1.81866158486367665370893496486098067, +0.659837685581412960937226272350219922), (+1.11361430028280736775928533960818631, +0.281545810161757592689636949822916437), (+1.29713255676226002050763005026626852, +0.591658478007626356005024303373637177), (+1.19925602717848850732573565538634585, +0.190493289102375945762062351619336999), (+1.92514615791491609894387980154074026, +0.833196491909304521158723441239287607), (+1.47354861911325081028461804478500250, +0.897606141576725533483097549131111943), (+1.30804068913323355641407609673447996, +0.918366815245192839175521877402343000), (+1.31880039509676087313464803519990080, +0.634990333991413739766734313337805786), (+1.13443612233206018272481875697447592, +0.310310181760351776123738980910503874), (+1.41101060837548923004512957862371696, +0.282914331052818833031639980765464793), (+1.54600087759221734773589541578878782, +0.771827506681337745403835529696937822), (+1.47739498369510832595608312253814816, +0.700968173830143441828048914320776372), (+1.73793871385870097302101827600429008, +0.434505981341405935981670346171235569), (+1.59089125301421993716886831680972958, +0.729631009892864061890083480374052800), (+1.82459168376592889735209633443542980, +0.375423333147692142598536104357759943), (+1.99700171356842398227710807901713114, +0.263275788770913735803833004563976668), (+1.76924528221822484350876750989016692, +0.136076628813024297082279879715212489), (+1.92351474025828886448357504451711444, +0.840357893990342943765638551490443238), (+1.71156062312693332935989887481277024, +0.993292593112540041787151703667937676), (+1.44172982827399435193950803231887158, +0.610299974757507307772975737447728292), (+1.04863918812710896351548123426125738, +0.628308928595216705909322703277792343), (+1.84103488211532094888885544353962558, +0.510503660251397627542736577678720282), (+1.47972390060268527029198509849044074, +0.398989246305492043990563412643370965), (+1.22481750861759066841419821470021634, +0.177919424525181392100108882750501662), (+1.38099972110535772350119658480072434, +0.560979179979021406082290199132537259), (+1.06148901218350022133219197439925172, +0.634377101969777667100613643429505756), (+1.39359938737372494233848158259295128, +0.945403852815316574739577200855510069), (+1.77606183114340602413453083109021080, +0.763534472395412208978849232073764332), (+1.64603926190256453202537742688646475, +0.637801259893413942902004402960879594), (+1.00437379958704477935716979627110390, +0.313296715199528654724099833546922344), (+1.37261392234162419261393066769352805, +0.710777448885121283826582850760845726), (+1.52806354751640339629171480141933931, +0.480495435117464186240500513586619948), (+1.93192351884178123433957960337712177, +0.558675798385954217512297783887574686), (+1.16534103947236524523207366065270338, +0.687696407167755449205263424454429989), (+1.66150026897910742614184597504045149, +0.769952291019524988753858523838762201), (+1.20112627817941203274447785478467160, +0.736232080426280152113768338034613675), (+1.96505146010673957428114512762273272, +0.659131163022654835135547803763985376), (+1.79481559167400815200282328355223301, +0.684544856890786962129566245878038395E-1), (+1.68321932032467752006402165370958390, +0.490578662723229142187800915404174075), (+1.98904257719317815176322805010322703, +0.884840028555227855603319638644913501), (+1.23024470743027480032916359189328887, +0.687689782019863166341431211518996709E-1), (+1.50283045142323610403894842560357081, +0.821908825351503369433283818289011066), (+1.91225500107825979699770364501400896, +0.763141195519273401796148907938260572), (+1.38176410436044701991082054897902051, +0.915704315960379508127845927742556307), (+1.92620833639748197838691112616262185, +0.375631150380429100057635409681400469), (+1.20954618020300567623332305814232850, +0.196638845162886150200744950959462321), (+1.25677908482620227287847023213480913, +0.570749345798039357594932895179162472), (+1.95598326545565405084534974887328141, +0.313159941255692298250877070121234380), (+1.16929581538011570396602663127578545, +0.517781230918852918633418912046231605), (+1.75704769412536866638826918405862120, +0.432939069276739786339311866770134068), (+1.11148173115366663298690123934528847, +0.679390744880597258602131203101655941), (+1.05436334542671506516713224618873222, +0.182945760935605607766186760047076708), (+1.17761330478355848619166263741660039, +0.557188583638140285363771251343052108), (+1.93844225952789721974810872873214987, +0.774134065213191799353220538708945185), (+1.67705831945203665499923740181105492, +0.967049941405851815172403075585133164), (+1.92803993036329333241434735970962207, +0.171652306206066239836213768479572892), (+1.70160570546971953955703430348505627, +0.181628440934706208762499443591665463)

147reltol = sqrt(epsilon(1._TKC))

148reltol

149+0.138777878078144567552953958511352539E-16

150isClose(data, adat, reltol = reltol)

151T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

152call setAsserted(all(isClose(data, adat, reltol = reltol)))

153

154lenData = getUnifRand(5, 100)

155lenData

156+96

157data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

158data

159+1.71675968, +1.76479173, +1.53407288, +1.49962664, +1.39486217, +1.36284196, +1.65726161, +1.63929486, +1.75194335, +1.70649493, +1.76938772, +1.77903759, +1.13447022, +1.24079514, +1.78766978, +1.63669300, +1.43321788, +1.73815668, +1.48473048, +1.28777838, +1.93817329, +1.26918578, +1.93475819, +1.31430721, +1.25087476, +1.60690475, +1.38276863, +1.90960574, +1.24237514, +1.94049275, +1.82214713, +1.13251734, +1.87891746, +1.64447117, +1.74212885, +1.51574707, +1.02398849, +1.09936452, +1.06871557, +1.21067071, +1.82361114, +1.97363961, +1.08268189, +1.86486375, +1.25455594, +1.19108462, +1.55998731, +1.57559443, +1.01401734, +1.88503599, +1.15651810, +1.76740861, +1.84726763, +1.07526302, +1.85710740, +1.15463674, +1.82167459, +1.92498326, +1.16826403, +1.50471282, +1.24323380, +1.42557251, +1.38083434, +1.47962904, +1.69116235, +1.75661612, +1.74294233, +1.10798490, +1.69426656, +1.17887998, +1.36607099, +1.35893893, +1.71774995, +1.49280787, +1.51416874, +1.50476480, +1.18209124, +1.73680687, +1.82945681, +1.18304324, +1.19045162, +1.58847404, +1.30884826, +1.72580004, +1.22528565, +1.91663134, +1.81432593, +1.08853197, +1.52953172, +1.35328496, +1.84810150, +1.81185174, +1.39811683, +1.84039283, +1.12357247, +1.88258016

160

161adat = getFFTI(getFFTF(data))

162adat

163+1.71675944, +1.76479197, +1.53407288, +1.49962664, +1.39486217, +1.36284232, +1.65726161, +1.63929462, +1.75194311, +1.70649505, +1.76938796, +1.77903748, +1.13447011, +1.24079537, +1.78766954, +1.63669276, +1.43321753, +1.73815668, +1.48473060, +1.28777838, +1.93817317, +1.26918590, +1.93475807, +1.31430709, +1.25087452, +1.60690475, +1.38276851, +1.90960550, +1.24237514, +1.94049299, +1.82214713, +1.13251710, +1.87891710, +1.64447153, +1.74212885, +1.51574707, +1.02398849, +1.09936476, +1.06871569, +1.21067047, +1.82361078, +1.97363949, +1.08268189, +1.86486340, +1.25455570, +1.19108486, +1.55998707, +1.57559419, +1.01401699, +1.88503587, +1.15651822, +1.76740861, +1.84726751, +1.07526314, +1.85710740, +1.15463662, +1.82167435, +1.92498326, +1.16826379, +1.50471246, +1.24323380, +1.42557275, +1.38083434, +1.47962880, +1.69116211, +1.75661635, +1.74294233, +1.10798502, +1.69426668, +1.17888021, +1.36607111, +1.35893869, +1.71774983, +1.49280775, +1.51416874, +1.50476456, +1.18209112, +1.73680723, +1.82945669, +1.18304300, +1.19045138, +1.58847404, +1.30884838, +1.72580004, +1.22528553, +1.91663146, +1.81432581, +1.08853197, +1.52953148, +1.35328507, +1.84810138, +1.81185150, +1.39811683, +1.84039307, +1.12357259, +1.88258004

164reltol = sqrt(epsilon(1._TKC))

165reltol

166+0.345266977E-3

167isClose(data, adat, reltol = reltol)

168T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

169call setAsserted(all(isClose(data, adat, reltol = reltol)))

170

171lenData = getUnifRand(5, 100)

172lenData

173+15

174data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

175data

176+1.7879373258813829, +1.9137718492062565, +1.0691264720514693, +1.1473516206410057, +1.4660618256378375, +1.8356304386376712, +1.3438205638882581, +1.7656521129581821, +1.6125614809693887, +1.5700459119855132, +1.8358008387529319, +1.7734266650294055, +1.4173346471357773, +1.8014552643011223, +1.6716894561128868

177

178adat = getFFTI(getFFTF(data))

179adat

180+1.7879373258813831, +1.9137718492062570, +1.0691264720514697, +1.1473516206410055, +1.4660618256378377, +1.8356304386376716, +1.3438205638882579, +1.7656521129581824, +1.6125614809693891, +1.5700459119855130, +1.8358008387529319, +1.7734266650294059, +1.4173346471357773, +1.8014552643011226, +1.6716894561128872

181reltol = sqrt(epsilon(1._TKC))

182reltol

183+0.14901161193847656E-7

184isClose(data, adat, reltol = reltol)

185T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

186call setAsserted(all(isClose(data, adat, reltol = reltol)))

187

188lenData = getUnifRand(5, 100)

189lenData

190+37

191data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

192data

193+1.98372558333871639654363389020860356, +1.33212600885447638952549181203164912, +1.24816709700567372808670715719173275, +1.37870252500397836150530109375362474, +1.31234463907242968701455779451329763, +1.41381674815216390607131517812094880, +1.57704697762185442992108633296029268, +1.50028531232043951390008354714355719, +1.90785589664118472755837068538893197, +1.83312763105878118522647752708045926, +1.81168394654277151771375400614336852, +1.41326855613338827815385213086360467, +1.04853706773341450497015840151931437, +1.02360877960762732665770009320829582, +1.53112383538260824357958469737614071, +1.71027221068359640384906275553733664, +1.42311785378671289588722239906927744, +1.36468475469577517270184088301070212, +1.39786152221452966189572536958697818, +1.29167083996612232209634311133297434, +1.27453029615000596005153113467471871, +1.25629196163013920280472197655241134, +1.65329911887314399282594266739532230, +1.78053162944014474183423717476830878, +1.49150155156110499678783595130159180, +1.86338027689586945581447285639363224, +1.89817362744375892791530084076409841, +1.09033930962888474195954535531090223, +1.26803636192230254051109665343092093, +1.08964002203185756245000569994966948, +1.81436794449478954348856393022367400, +1.28058691809894777458508843691276212, +1.32257435085562193766639505793692436, +1.74403443926241298249129391275480983, +1.38207695456245670790989668775839173, +1.04743993295393542650278120911403887, +1.86117225729811875431216291373658592

194

195adat = getFFTI(getFFTF(data))

196adat

197+1.98372558333871639654363389020860375, +1.33212600885447638952549181203164912, +1.24816709700567372808670715719173352, +1.37870252500397836150530109375362435, +1.31234463907242968701455779451329840, +1.41381674815216390607131517812094899, +1.57704697762185442992108633296029268, +1.50028531232043951390008354714355738, +1.90785589664118472755837068538893159, +1.83312763105878118522647752708045887, +1.81168394654277151771375400614336755, +1.41326855613338827815385213086360390, +1.04853706773341450497015840151931456, +1.02360877960762732665770009320829640, +1.53112383538260824357958469737614110, +1.71027221068359640384906275553733414, +1.42311785378671289588722239906927860, +1.36468475469577517270184088301070058, +1.39786152221452966189572536958697972, +1.29167083996612232209634311133297723, +1.27453029615000596005153113467471698, +1.25629196163013920280472197655241365, +1.65329911887314399282594266739531980, +1.78053162944014474183423717476830859, +1.49150155156110499678783595130159161, +1.86338027689586945581447285639363185, +1.89817362744375892791530084076409571, +1.09033930962888474195954535531090415, +1.26803636192230254051109665343091997, +1.08964002203185756245000569994967006, +1.81436794449478954348856393022367285, +1.28058691809894777458508843691276212, +1.32257435085562193766639505793692513, +1.74403443926241298249129391275481021, +1.38207695456245670790989668775839192, +1.04743993295393542650278120911404002, +1.86117225729811875431216291373658573

198reltol = sqrt(epsilon(1._TKC))

199reltol

200+0.138777878078144567552953958511352539E-16

201isClose(data, adat, reltol = reltol)

202T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

203call setAsserted(all(isClose(data, adat, reltol = reltol)))

204

205lenData = getUnifRand(5, 100)

206lenData

207+92

208data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

209data

210(+1.91629767, +0.368884563), (+1.45587754, +0.317924917), (+1.10160422, +0.195321679), (+1.99417591, +0.593571603), (+1.75823140, +0.687322557), (+1.59894490, +0.507859826), (+1.29091871, +0.970596373), (+1.58936560, +0.240034938), (+1.41990423, +0.363153696), (+1.20927763, +0.961892784), (+1.56254089, +0.328936279), (+1.48210382, +0.388637006), (+1.33355713, +0.185785830), (+1.82219768, +0.562345386), (+1.47836614, +0.613784790E-1), (+1.38714361, +0.337794244), (+1.25133801, +0.989784777), (+1.01379764, +0.209625006), (+1.19149804, +0.744402409E-2), (+1.68286860, +0.561931133), (+1.33087063, +0.854928493), (+1.88875210, +0.954152703), (+1.79107738, +0.522326291), (+1.69443226, +0.666693211), (+1.01950860, +0.828982472), (+1.55184197, +0.991171241), (+1.91445303, +0.389007509), (+1.13603425, +0.935254872), (+1.77549183, +0.452329218), (+1.90181136, +0.290324569), (+1.84137344, +0.996796072), (+1.15996552, +0.211236477E-1), (+1.90906489, +0.595835388), (+1.45102382, +0.389805794), (+1.81565356, +0.834322512), (+1.89069295, +0.298600733), (+1.98255014, +0.272417963), (+1.90416837, +0.764968991E-1), (+1.32572281, +0.559071839), (+1.08458805, +0.488330424), (+1.03313303, +0.196591616), (+1.51207018, +0.408231616), (+1.70585966, +0.865484476), (+1.66558504, +0.683946729), (+1.68258119, +0.271047711), (+1.74977779, +0.844500601), (+1.13576305, +0.310889125), (+1.14472342, +0.714953840), (+1.63576591, +0.671637118), (+1.71578431, +0.693938196), (+1.75312543, +0.961277723), (+1.50888586, +0.749400914), (+1.41242766, +0.576090217E-1), (+1.39576256, +0.600981474), (+1.53673232, +0.152673841), (+1.35382771, +0.965642035), (+1.04605043, +0.565961659), (+1.81056190, +0.692120254), (+1.88028133, +0.733298242), (+1.16353726, +0.855438113), (+1.99920356, +0.761743784E-1), (+1.94012666, +0.176689625), (+1.95097744, +0.436776519), (+1.22490430, +0.453744829), (+1.20701790, +0.844166875E-1), (+1.23556769, +0.570589602), (+1.36662769, +0.292671561), (+1.96303093, +0.658435225), (+1.55725408, +0.553093433), (+1.04725504, +0.974089503), (+1.53130341, +0.872056186), (+1.18080759, +0.756660879), (+1.84028161, +0.531678021), (+1.35942268, +0.643740237), (+1.27242637, +0.524575293), (+1.77340329, +0.760998547), (+1.33210564, +0.431142807), (+1.24596953, +0.811200976), (+1.67901540, +0.997648299), (+1.86944175, +0.780991435), (+1.10337412, +0.664632678), (+1.95757663, +0.619309962), (+1.52343917, +0.263889134), (+1.76180768, +0.443717778), (+1.22646487, +0.506102681), (+1.42671263, +0.560611725), (+1.49055707, +0.895935059), (+1.11607671, +0.115341187), (+1.18119812, +0.891932547), (+1.01511717, +0.626823485), (+1.55588818, +0.221999466), (+1.73292923, +0.628279209)

211

212adat = getFFTI(getFFTF(data))

213adat

214(+1.91629767, +0.368884504), (+1.45587754, +0.317924887), (+1.10160410, +0.195321620), (+1.99417615, +0.593571484), (+1.75823128, +0.687322557), (+1.59894502, +0.507860005), (+1.29091883, +0.970596433), (+1.58936584, +0.240034953), (+1.41990411, +0.363153636), (+1.20927763, +0.961892962), (+1.56254137, +0.328936338), (+1.48210394, +0.388637006), (+1.33355713, +0.185785905), (+1.82219768, +0.562345505), (+1.47836590, +0.613785647E-1), (+1.38714385, +0.337794214), (+1.25133777, +0.989784777), (+1.01379764, +0.209624976), (+1.19149840, +0.744392583E-2), (+1.68286896, +0.561931133), (+1.33087075, +0.854928434), (+1.88875198, +0.954152644), (+1.79107749, +0.522326171), (+1.69443214, +0.666693091), (+1.01950872, +0.828982413), (+1.55184209, +0.991171241), (+1.91445327, +0.389007479), (+1.13603425, +0.935254812), (+1.77549255, +0.452329159), (+1.90181136, +0.290324688), (+1.84137344, +0.996796012), (+1.15996552, +0.211236384E-1), (+1.90906513, +0.595835447), (+1.45102358, +0.389805913), (+1.81565380, +0.834322572), (+1.89069307, +0.298600793), (+1.98255050, +0.272418082), (+1.90416825, +0.764970779E-1), (+1.32572293, +0.559072018), (+1.08458805, +0.488330364), (+1.03313327, +0.196591675), (+1.51207018, +0.408231646), (+1.70585954, +0.865484416), (+1.66558528, +0.683946609), (+1.68258119, +0.271047622), (+1.74977779, +0.844500601), (+1.13576305, +0.310889095), (+1.14472353, +0.714953780), (+1.63576555, +0.671637118), (+1.71578419, +0.693938255), (+1.75312543, +0.961277664), (+1.50888598, +0.749401033), (+1.41242790, +0.576090813E-1), (+1.39576244, +0.600981355), (+1.53673208, +0.152673811), (+1.35382795, +0.965642035), (+1.04605091, +0.565961838), (+1.81056190, +0.692120314), (+1.88028169, +0.733298182), (+1.16353750, +0.855438054), (+1.99920380, +0.761743635E-1), (+1.94012582, +0.176689625), (+1.95097733, +0.436776638), (+1.22490430, +0.453744859), (+1.20701838, +0.844166577E-1), (+1.23556757, +0.570589662), (+1.36662781, +0.292671412), (+1.96303129, +0.658435106), (+1.55725431, +0.553093493), (+1.04725504, +0.974089503), (+1.53130376, +0.872056127), (+1.18080747, +0.756660819), (+1.84028184, +0.531678021), (+1.35942256, +0.643740118), (+1.27242661, +0.524575412), (+1.77340341, +0.760998547), (+1.33210564, +0.431142896), (+1.24596941, +0.811200857), (+1.67901576, +0.997648358), (+1.86944222, +0.780991614), (+1.10337412, +0.664632738), (+1.95757627, +0.619310081), (+1.52343905, +0.263889194), (+1.76180816, +0.443717837), (+1.22646463, +0.506102681), (+1.42671239, +0.560611844), (+1.49055731, +0.895935059), (+1.11607695, +0.115341149), (+1.18119800, +0.891932487), (+1.01511717, +0.626823485), (+1.55588830, +0.221999466), (+1.73292947, +0.628279150)

215reltol = sqrt(epsilon(1._TKC))

216reltol

217+0.345266977E-3

218isClose(data, adat, reltol = reltol)

219T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

220call setAsserted(all(isClose(data, adat, reltol = reltol)))

221

222lenData = getUnifRand(5, 100)

223lenData

224+78

225data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

226data

227(+1.4154018145767970, +0.27531588096786797E-1), (+1.3813986159100968, +0.76338947120858236), (+1.8391497809536173, +0.67087274315607337), (+1.5528161166043390, +0.35994844103011125E-2), (+1.7981147624005902, +0.17603730427056219), (+1.2820113456406563, +0.10711127906848505), (+1.9692908761908403, +0.38123904841888079), (+1.1123983330091560, +0.20770566183659778), (+1.5712532917366124, +0.67080839066612363), (+1.8548748800291346, +0.27676194056686187), (+1.8473650069096728, +0.97792266362489000), (+1.3166897269577524, +0.20741795963917753), (+1.4853511691420547, +0.92360105357993616), (+1.0981618154226609, +0.80239841628775288E-2), (+1.4243033719446634, +0.92766865501540463), (+1.9423086403374206, +0.71306208345766608), (+1.8769007410364105, +0.12965973126481578), (+1.1919645023557792, +0.75304567893160512), (+1.2710215503972373, +0.30422872665246548), (+1.5572546046584117, +0.16485819031406246), (+1.6176795047637884, +0.99682124845098530), (+1.4696732691839893, +0.95956962767837717E-1), (+1.5779746818658693, +0.20282868024766643), (+1.3538922742820192, +0.22238683908205303), (+1.7520142190258379, +0.51484434202672558), (+1.2983116191561330, +0.85652592124454385), (+1.9122722284606546, +0.15013844826525158), (+1.6807641492286125, +0.64274005888094377), (+1.2523874091352143, +0.22867909805557707), (+1.3144860311988786, +0.55509912745599854), (+1.4817368014701300, +0.53506933480034236), (+1.1614982490817654, +0.23490713759576332), (+1.4137011028840649, +0.48423313608959628), (+1.8911029633555128, +0.92910590140075255), (+1.3221046024482364, +0.77168435112754452), (+1.1668041648956491, +0.93636476635652000), (+1.3778808326017353, +0.36184902582080936), (+1.9788221882898394, +0.73421038302226926), (+1.7615828525188184, +0.93215447183158695), (+1.7991757128993457, +0.83595876140711778), (+1.4584846749985849, +0.65002906049896902), (+1.2501104896326019, +0.15182196583905050), (+1.9999467232370232, +0.66428566584877224), (+1.6661822255111911, +0.28826520959655499), (+1.8219423120418798, +0.58772792767453041), (+1.2845231508246373, +0.70382085259211857), (+1.7849226070295237, +0.96240837634306786), (+1.5911679655261819, +0.52302363296193277), (+1.9545697852526676, +0.17501264437619390), (+1.1768838790411618, +0.58271321801707943), (+1.1664537703760287, +0.11440254420872631), (+1.0095219631071215, +0.78047381778808878E-1), (+1.1972379775539463, +0.94806106276201152), (+1.8266630846928344, +0.70344124960706556), (+1.6423643096258851, +0.36587408016099643), (+1.3343504962180655, +0.40574917249038334), (+1.3131449903650758, +0.61615595363905296), (+1.4975949870750431, +0.59154316113517302), (+1.1904663948074135, +0.70859924714337330), (+1.9571175621169843, +0.77831354826470767), (+1.3865907263215214, +0.23182567932629816), (+1.9889947214218824, +0.50679407866832538), (+1.5035153415388574, +0.60445755031173154), (+1.6377081185406697, +0.71352569952707812), (+1.0303650431626705, +0.57219150593378609), (+1.3517246068477964, +0.26701754377956632), (+1.0877234449025197, +0.29687545570529905), (+1.0367405483633441, +0.73885285501932529), (+1.2467563376251372, +0.68659719684326503), (+1.6935135809657642, +0.22120625260422144), (+1.4470028134748412, +0.96233811868300934E-1), (+1.2839634465972876, +0.17741569885600483), (+1.8079071344857442, +0.22363484583605175), (+1.0663622176582841, +0.39111323852731783), (+1.5679038288915390, +0.94017912581988883), (+1.8234942259846503, +0.99653627651949406E-1), (+1.2793378736362095, +0.46328132008885292), (+1.8508394031386519, +0.32900139616780777)

228

229adat = getFFTI(getFFTF(data))

230adat

231(+1.4154018145767966, +0.27531588096786415E-1), (+1.3813986159100975, +0.76338947120858258), (+1.8391497809536173, +0.67087274315607293), (+1.5528161166043395, +0.35994844103011125E-2), (+1.7981147624005902, +0.17603730427056249), (+1.2820113456406559, +0.10711127906848511), (+1.9692908761908390, +0.38123904841888062), (+1.1123983330091547, +0.20770566183659755), (+1.5712532917366120, +0.67080839066612363), (+1.8548748800291346, +0.27676194056686193), (+1.8473650069096734, +0.97792266362489000), (+1.3166897269577524, +0.20741795963917781), (+1.4853511691420556, +0.92360105357993605), (+1.0981618154226604, +0.80239841628774039E-2), (+1.4243033719446643, +0.92766865501540463), (+1.9423086403374208, +0.71306208345766631), (+1.8769007410364105, +0.12965973126481578), (+1.1919645023557799, +0.75304567893160546), (+1.2710215503972366, +0.30422872665246525), (+1.5572546046584099, +0.16485819031406210), (+1.6176795047637869, +0.99682124845098519), (+1.4696732691839887, +0.95956962767838133E-1), (+1.5779746818658702, +0.20282868024766654), (+1.3538922742820194, +0.22238683908205326), (+1.7520142190258383, +0.51484434202672524), (+1.2983116191561341, +0.85652592124454408), (+1.9122722284606535, +0.15013844826525130), (+1.6807641492286132, +0.64274005888094365), (+1.2523874091352141, +0.22867909805557704), (+1.3144860311988791, +0.55509912745599854), (+1.4817368014701302, +0.53506933480034236), (+1.1614982490817649, +0.23490713759576318), (+1.4137011028840638, +0.48423313608959589), (+1.8911029633555116, +0.92910590140075255), (+1.3221046024482359, +0.77168435112754419), (+1.1668041648956500, +0.93636476635652000), (+1.3778808326017349, +0.36184902582080913), (+1.9788221882898394, +0.73421038302226893), (+1.7615828525188193, +0.93215447183158717), (+1.7991757128993453, +0.83595876140711767), (+1.4584846749985854, +0.65002906049896902), (+1.2501104896326019, +0.15182196583905042), (+1.9999467232370234, +0.66428566584877213), (+1.6661822255111913, +0.28826520959655488), (+1.8219423120418790, +0.58772792767453041), (+1.2845231508246360, +0.70382085259211780), (+1.7849226070295221, +0.96240837634306764), (+1.5911679655261817, +0.52302363296193310), (+1.9545697852526678, +0.17501264437619390), (+1.1768838790411620, +0.58271321801707954), (+1.1664537703760287, +0.11440254420872642), (+1.0095219631071222, +0.78047381778809030E-1), (+1.1972379775539457, +0.94806106276201096), (+1.8266630846928356, +0.70344124960706544), (+1.6423643096258851, +0.36587408016099643), (+1.3343504962180659, +0.40574917249038328), (+1.3131449903650763, +0.61615595363905296), (+1.4975949870750431, +0.59154316113517336), (+1.1904663948074121, +0.70859924714337275), (+1.9571175621169830, +0.77831354826470711), (+1.3865907263215207, +0.23182567932629816), (+1.9889947214218826, +0.50679407866832571), (+1.5035153415388571, +0.60445755031173154), (+1.6377081185406694, +0.71352569952707778), (+1.0303650431626716, +0.57219150593378598), (+1.3517246068477955, +0.26701754377956571), (+1.0877234449025206, +0.29687545570529938), (+1.0367405483633438, +0.73885285501932529), (+1.2467563376251374, +0.68659719684326492), (+1.6935135809657642, +0.22120625260422139), (+1.4470028134748409, +0.96233811868301058E-1), (+1.2839634465972867, +0.17741569885600486), (+1.8079071344857431, +0.22363484583605167), (+1.0663622176582841, +0.39111323852731772), (+1.5679038288915390, +0.94017912581988894), (+1.8234942259846503, +0.99653627651949642E-1), (+1.2793378736362098, +0.46328132008885253), (+1.8508394031386530, +0.32900139616780777)

232reltol = sqrt(epsilon(1._TKC))

233reltol

234+0.14901161193847656E-7

235isClose(data, adat, reltol = reltol)

236T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

237call setAsserted(all(isClose(data, adat, reltol = reltol)))

238

239lenData = getUnifRand(5, 100)

240lenData

241+64

242data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

243data

244(+1.57244171941240592424186180949454910, +0.649332702888667869561196370471376449), (+1.90403096076765784542996976780625060, +0.475825939614285286561304885142528406), (+1.67795072115554981691135218801904280, +0.117937088257749443642893633988595795), (+1.78235322817091961547281458734805922, +0.168122754103859540290047827763829865), (+1.04541247602075218965712949713028381, +0.566214241010856352690646646210433603), (+1.31195501807249781542666745536907259, +0.350630809283692129890064473342396226E-1), (+1.21116725259443216230273995325815759, +0.848365464749757564526872700887191665), (+1.69998023588982983136484696836471927, +0.687426644113564103562982681178340584E-1), (+1.70630528586895347502966630793711718, +0.559586995707112845490274177375593185), (+1.04950330468630589130550710017339894, +0.722783578669067526208266669586457050E-1), (+1.95895512962904907201983611643315233, +0.960335315667513032124175601262024097), (+1.79815370843123418188653073100495879, +0.699628988262846559132079464020632364), (+1.04797997802111388592209628982758806, +0.740429323693365881377557710024518610), (+1.81009731933553810067517489618261001, +0.402445355755996490471920684413108779), (+1.13711174965019765956525752957247715, +0.853713626760230105957700464351898041), (+1.75363348336403131803237683381302683, +0.810294254910246621013064733298066863), (+1.95055354763037926281976162449615384, +0.609105930063223258202503629176577597E-1), (+1.04102449257703459274377730193215248, +0.682790889215503116908451328019857343), (+1.94767779122471749556001107559570443, +0.997193754057264966030828032522573248), (+1.60237549082485942920998655797441068, +0.902290498281816138680436799611680280E-1), (+1.30535941087208786184725006080149547, +0.277534682016036998133693226685389509), (+1.32300868785644248228381581118268532, +0.752574735406643271277743879695718747), (+1.02408816080124552164645539410871863, +0.338021158028657488393124885873747111), (+1.27909741790164807765537009435228120, +0.898368237178565211335440597854935604), (+1.71648662643115820648228893966565529, +0.834353741787925409182436190579422951), (+1.73492284132376168149752053227632463, +0.513043062086571019207373519347768819), (+1.88542035993576824830841869041036197, +0.824571186604757733415464152685556388), (+1.39586978124295600103507070142730965, +0.455662477209302152633082106064983255), (+1.51504018503816308943946372951517081, +0.199769005933866875852818567875290888), (+1.54929294998839609884372736534456903, +0.598187453826584810848722445714525188), (+1.96523506556760663707075587954694650, +0.976229545296260948374201962545508167), (+1.54930211753374873201861435601331086, +0.419336543151795242327745029936364275E-1), (+1.81185650225672588876231282455491429, +0.524758823956270774134516407078230968), (+1.68082811483273237952645812043587110, +0.157100517762558634494121565203227569), (+1.43668654262764833200939650358286691, +0.203257628711171437226801644798480364), (+1.44405420384694741120951496271743265, +0.651634622203445121090607553773156374), (+1.49167724102471103933045374061864109, +0.910103008434073263294217028279506357), (+1.12511830443910769306653392592189700, +0.938634134395883773059123071713388698), (+1.37363917702450248033584838319141486, +0.210399594557183414673954777012093476), (+1.53325781179550945258552289130499590, +0.940074753568172025505521963595625869), (+1.32273884802729865410779743998094376, +0.168055517017127160608058486505530364), (+1.14089320533507637989962923983339767, +0.793082181049443298256519379802589756), (+1.94272623646714320431301733160208304, +0.911208454125799282303161587166063080), (+1.54413169496195426825564194091231206, +0.149681955853914710476202169708216407E-1), (+1.48445705628723830596524053943117976, +0.845324262353755954061188304095537573), (+1.79229478744963422964964779549203857, +0.762972825505913890026858304673870375), (+1.47246398515183559039848047942290849, +0.745261679576076169544449380896110928), (+1.52463349659768751378923868892815281, +0.171353408406934463148039914432881840), (+1.09595018205795290450391402589516179, +0.197106581299859591124299137287036798), (+1.66386639537190765779359828666346145, +0.795368299201620659012535084155397258), (+1.53936411876338179292679774779723364, +0.306300126598257387272076205574361511), (+1.64355920419952396484940420800514217, +0.591779882938664157367844017335704847E-2), (+1.93717077790459965370125258753494747, +0.227808529038233313527968368526124137), (+1.04323506425274298449095408672204718, +0.703642369487982998061264501900587084), (+1.57552730231961131382541149940476426, +0.318095426814001769910017664843827838), (+1.32387220703700316553156096541874200, +0.946423380340787885736187484252026191), (+1.36294299326404449076763995669310605, +0.938051533976541423969950059922799945), (+1.99072510433151235815728442357580129, +0.649200791458729968232136165609458488), (+1.07048515852306926440854284895367001, +0.254937028957188522283120106137080847), (+1.58365194807079436833551401609753689, +0.467543906219410953983620064061350420), (+1.14258011010952378130790357484054771, +0.841085137756016962524824704199117142), (+1.32152126489046784157612429078146178, +0.533158930238810553977053629780143380), (+1.33189191572047816571477935778329154, +0.623976030248690440404992581764412784), (+1.10225026617583305530061132021861452, +0.817268779637949551457724235607291645)

245

246adat = getFFTI(getFFTF(data))

247adat

248(+1.57244171941240592424186180949454929, +0.649332702888667869561196370471376545), (+1.90403096076765784542996976780625021, +0.475825939614285286561304885142528406), (+1.67795072115554981691135218801904280, +0.117937088257749443642893633988595879), (+1.78235322817091961547281458734805864, +0.168122754103859540290047827763829961), (+1.04541247602075218965712949713028400, +0.566214241010856352690646646210433699), (+1.31195501807249781542666745536907220, +0.350630809283692129890064473342396226E-1), (+1.21116725259443216230273995325815759, +0.848365464749757564526872700887191761), (+1.69998023588982983136484696836471927, +0.687426644113564103562982681178340103E-1), (+1.70630528586895347502966630793711718, +0.559586995707112845490274177375593282), (+1.04950330468630589130550710017339875, +0.722783578669067526208266669586457050E-1), (+1.95895512962904907201983611643315253, +0.960335315667513032124175601262024386), (+1.79815370843123418188653073100495859, +0.699628988262846559132079464020632461), (+1.04797997802111388592209628982758806, +0.740429323693365881377557710024518707), (+1.81009731933553810067517489618260963, +0.402445355755996490471920684413108587), (+1.13711174965019765956525752957247734, +0.853713626760230105957700464351898233), (+1.75363348336403131803237683381302645, +0.810294254910246621013064733298066959), (+1.95055354763037926281976162449615403, +0.609105930063223258202503629176579042E-1), (+1.04102449257703459274377730193215229, +0.682790889215503116908451328019857247), (+1.94767779122471749556001107559570443, +0.997193754057264966030828032522573248), (+1.60237549082485942920998655797441030, +0.902290498281816138680436799611680400E-1), (+1.30535941087208786184725006080149547, +0.277534682016036998133693226685389702), (+1.32300868785644248228381581118268493, +0.752574735406643271277743879695718747), (+1.02408816080124552164645539410871882, +0.338021158028657488393124885873747207), (+1.27909741790164807765537009435228120, +0.898368237178565211335440597854935604), (+1.71648662643115820648228893966565529, +0.834353741787925409182436190579423047), (+1.73492284132376168149752053227632444, +0.513043062086571019207373519347768723), (+1.88542035993576824830841869041036197, +0.824571186604757733415464152685556388), (+1.39586978124295600103507070142730907, +0.455662477209302152633082106064983158), (+1.51504018503816308943946372951517081, +0.199769005933866875852818567875291129), (+1.54929294998839609884372736534456845, +0.598187453826584810848722445714525188), (+1.96523506556760663707075587954694650, +0.976229545296260948374201962545508167), (+1.54930211753374873201861435601331067, +0.419336543151795242327745029936365720E-1), (+1.81185650225672588876231282455491448, +0.524758823956270774134516407078231161), (+1.68082811483273237952645812043587072, +0.157100517762558634494121565203227641), (+1.43668654262764833200939650358286691, +0.203257628711171437226801644798480461), (+1.44405420384694741120951496271743188, +0.651634622203445121090607553773156471), (+1.49167724102471103933045374061864128, +0.910103008434073263294217028279506550), (+1.12511830443910769306653392592189661, +0.938634134395883773059123071713388601), (+1.37363917702450248033584838319141505, +0.210399594557183414673954777012093620), (+1.53325781179550945258552289130499590, +0.940074753568172025505521963595625869), (+1.32273884802729865410779743998094376, +0.168055517017127160608058486505530460), (+1.14089320533507637989962923983339747, +0.793082181049443298256519379802589756), (+1.94272623646714320431301733160208343, +0.911208454125799282303161587166063080), (+1.54413169496195426825564194091231168, +0.149681955853914710476202169708218333E-1), (+1.48445705628723830596524053943117996, +0.845324262353755954061188304095537862), (+1.79229478744963422964964779549203819, +0.762972825505913890026858304673870279), (+1.47246398515183559039848047942290849, +0.745261679576076169544449380896111025), (+1.52463349659768751378923868892815281, +0.171353408406934463148039914432881888), (+1.09595018205795290450391402589516218, +0.197106581299859591124299137287036942), (+1.66386639537190765779359828666346106, +0.795368299201620659012535084155397258), (+1.53936411876338179292679774779723364, +0.306300126598257387272076205574361703), (+1.64355920419952396484940420800514178, +0.591779882938664157367844017335708458E-2), (+1.93717077790459965370125258753494747, +0.227808529038233313527968368526124329), (+1.04323506425274298449095408672204679, +0.703642369487982998061264501900586988), (+1.57552730231961131382541149940476426, +0.318095426814001769910017664843828030), (+1.32387220703700316553156096541874200, +0.946423380340787885736187484252026095), (+1.36294299326404449076763995669310585, +0.938051533976541423969950059922800042), (+1.99072510433151235815728442357580110, +0.649200791458729968232136165609458391), (+1.07048515852306926440854284895367021, +0.254937028957188522283120106137080847), (+1.58365194807079436833551401609753651, +0.467543906219410953983620064061350420), (+1.14258011010952378130790357484054771, +0.841085137756016962524824704199117334), (+1.32152126489046784157612429078146120, +0.533158930238810553977053629780143380), (+1.33189191572047816571477935778329154, +0.623976030248690440404992581764412880), (+1.10225026617583305530061132021861433, +0.817268779637949551457724235607291549)

249reltol = sqrt(epsilon(1._TKC))

250reltol

251+0.138777878078144567552953958511352539E-16

252isClose(data, adat, reltol = reltol)

253T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

254call setAsserted(all(isClose(data, adat, reltol = reltol)))

255

256lenData = getUnifRand(5, 100)

257lenData

258+94

259data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

260data

261+1.87734318, +1.99407947, +1.06517613, +1.80052114, +1.51191878, +1.28835845, +1.28858590, +1.31262898, +1.50572336, +1.51984906, +1.38121283, +1.55879664, +1.68341970, +1.28243804, +1.19405961, +1.15237069, +1.99256063, +1.89595401, +1.31695890, +1.94735980, +1.52046967, +1.09962153, +1.35688317, +1.78441310, +1.26514995, +1.44876242, +1.40041637, +1.27541518, +1.89432693, +1.69640827, +1.19624412, +1.21223187, +1.59746420, +1.33730435, +1.27079272, +1.14855695, +1.15339875, +1.16139495, +1.48451281, +1.21448946, +1.12487483, +1.96796012, +1.80894935, +1.38293624, +1.52012992, +1.95812523, +1.94003773, +1.41880345, +1.65684938, +1.07880044, +1.33644450, +1.69107509, +1.55256498, +1.45387721, +1.58245850, +1.52829814, +1.80614853, +1.97072828, +1.27431846, +1.65692258, +1.61661398, +1.57777047, +1.98527384, +1.22756982, +1.91326845, +1.72600937, +1.68769336, +1.77726591, +1.82566607, +1.48140132, +1.54689097, +1.70009935, +1.34130740, +1.30008245, +1.41487563, +1.48743737, +1.70038295, +1.76918006, +1.31154549, +1.70102835, +1.21398711, +1.49269319, +1.29260254, +1.00228333, +1.57202482, +1.71725547, +1.33436847, +1.57287538, +1.88818216, +1.90954494, +1.21179652, +1.49983597, +1.62151289, +1.92627168

262

263adat = getFFTI(getFFTF(data))

264adat

265+1.87734199, +1.99407887, +1.06517565, +1.80052054, +1.51191783, +1.28835809, +1.28858542, +1.31262839, +1.50572252, +1.51984823, +1.38121259, +1.55879664, +1.68341887, +1.28243744, +1.19405985, +1.15237021, +1.99255979, +1.89595377, +1.31695926, +1.94735992, +1.52046931, +1.09962142, +1.35688376, +1.78441358, +1.26514912, +1.44876146, +1.40041625, +1.27541494, +1.89432621, +1.69640732, +1.19624329, +1.21223128, +1.59746373, +1.33730400, +1.27079320, +1.14855707, +1.15339792, +1.16139448, +1.48451412, +1.21448922, +1.12487209, +1.96795988, +1.80894995, +1.38293552, +1.52012634, +1.95812428, +1.94004393, +1.41880631, +1.65685606, +1.07880247, +1.33644104, +1.69107473, +1.55256569, +1.45387650, +1.58245635, +1.52829707, +1.80614984, +1.97072840, +1.27431703, +1.65692198, +1.61661470, +1.57777059, +1.98527324, +1.22756910, +1.91326869, +1.72600961, +1.68769193, +1.77726495, +1.82566631, +1.48140085, +1.54689002, +1.70009899, +1.34130776, +1.30008245, +1.41487527, +1.48743737, +1.70038307, +1.76917970, +1.31154478, +1.70102799, +1.21398735, +1.49269259, +1.29260206, +1.00228298, +1.57202470, +1.71725559, +1.33436728, +1.57287443, +1.88818181, +1.90954435, +1.21179509, +1.49983537, +1.62151229, +1.92627108

266reltol = sqrt(epsilon(1._TKC))

267reltol

268+0.345266977E-3

269isClose(data, adat, reltol = reltol)

270T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

271call setAsserted(all(isClose(data, adat, reltol = reltol)))

272

273lenData = getUnifRand(5, 100)

274lenData

275+87

276data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

277data

278+1.0914742316908828, +1.0496389404185216, +1.8153887964246549, +1.0763339354220722, +1.4326259935637951, +1.1873030656015389, +1.7972933191679747, +1.5605488488957571, +1.9832722630121797, +1.7355438859573062, +1.9918742533062379, +1.9573131985514836, +1.4560397667485621, +1.1548315849738187, +1.7680587509063055, +1.5932931541430564, +1.9649182215631509, +1.7247361776117893, +1.5877221814076226, +1.1957829058291323, +1.9187102446134838, +1.5985216823176165, +1.0318540379415606, +1.6332359682326318, +1.1934010251748748, +1.7087064910526868, +1.2377975657818345, +1.6482108307565286, +1.4124091694503240, +1.6704899510405888, +1.3577603363356632, +1.7023150293987508, +1.2711879121840592, +1.6723505592625085, +1.8894995233060552, +1.9037876253815598, +1.7887894689057471, +1.5990455003644191, +1.4529890603417304, +1.1113364039328593, +1.0122804194892092, +1.4646677696697656, +1.6566101249029535, +1.0854386290196461, +1.5136278114958974, +1.5928124988757548, +1.0686526186715208, +1.3553492966586920, +1.2028523116953389, +1.2705173734381385, +1.3118549545052041, +1.4432995720866648, +1.8413026154876362, +1.3245353247052694, +1.0386154499893361, +1.4524378230413841, +1.1410573720832990, +1.2463973302659543, +1.2937415514541661, +1.3360806573721704, +1.6408892954648873, +1.4794058895686466, +1.2486850851466083, +1.1798425735022069, +1.4058865092349093, +1.8784456311940225, +1.0637417599761176, +1.1025678874525202, +1.0037108299431188, +1.7755122157231096, +1.3384718677893255, +1.5341145134233578, +1.5229086286379232, +1.2010806812299362, +1.3930898203444837, +1.6920730504949131, +1.0691608971083679, +1.1372408094360469, +1.8164050073900131, +1.2203275862947458, +1.1593305463422250, +1.8274278137598032, +1.5217720336746670, +1.5558688958579467, +1.3453978838646785, +1.2019209840941811, +1.5330156191083411

279

280adat = getFFTI(getFFTF(data))

281adat

282+1.0914742316908834, +1.0496389404185222, +1.8153887964246564, +1.0763339354220722, +1.4326259935637946, +1.1873030656015395, +1.7972933191679745, +1.5605488488957573, +1.9832722630121793, +1.7355438859573056, +1.9918742533062352, +1.9573131985514827, +1.4560397667485625, +1.1548315849738209, +1.7680587509063062, +1.5932931541430555, +1.9649182215631480, +1.7247361776117893, +1.5877221814076226, +1.1957829058291332, +1.9187102446134827, +1.5985216823176149, +1.0318540379415622, +1.6332359682326307, +1.1934010251748772, +1.7087064910526848, +1.2377975657818365, +1.6482108307565264, +1.4124091694503245, +1.6704899510405868, +1.3577603363356643, +1.7023150293987503, +1.2711879121840619, +1.6723505592625063, +1.8894995233060528, +1.9037876253815555, +1.7887894689057460, +1.5990455003644177, +1.4529890603417324, +1.1113364039328619, +1.0122804194892110, +1.4646677696697645, +1.6566101249029532, +1.0854386290196480, +1.5136278114958988, +1.5928124988757555, +1.0686526186715233, +1.3553492966586937, +1.2028523116953396, +1.2705173734381383, +1.3118549545052036, +1.4432995720866644, +1.8413026154876326, +1.3245353247052691, +1.0386154499893370, +1.4524378230413839, +1.1410573720833002, +1.2463973302659543, +1.2937415514541670, +1.3360806573721697, +1.6408892954648844, +1.4794058895686457, +1.2486850851466096, +1.1798425735022082, +1.4058865092349087, +1.8784456311940188, +1.0637417599761190, +1.1025678874525209, +1.0037108299431214, +1.7755122157231082, +1.3384718677893248, +1.5341145134233565, +1.5229086286379232, +1.2010806812299359, +1.3930898203444837, +1.6920730504949129, +1.0691608971083690, +1.1372408094360480, +1.8164050073900129, +1.2203275862947449, +1.1593305463422250, +1.8274278137598032, +1.5217720336746667, +1.5558688958579459, +1.3453978838646785, +1.2019209840941809, +1.5330156191083411

283reltol = sqrt(epsilon(1._TKC))

284reltol

285+0.14901161193847656E-7

286isClose(data, adat, reltol = reltol)

287T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

288call setAsserted(all(isClose(data, adat, reltol = reltol)))

289

290lenData = getUnifRand(5, 100)

291lenData

292+56

293data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

294data

295+1.81567917583102293108242487539097178, +1.71598833849751014811050570297711604, +1.38702517248863213771068921954571398, +1.90496066202384121658339299685693471, +1.15956948558626208251247065238702690, +1.96321584925403579147817645316064861, +1.51255137195023007097359306732116595, +1.16439608114784162553439947509606988, +1.48648748371662581121519592585230972, +1.07496283541702542980440459593991373, +1.70576105860464382327167271623619126, +1.50944795787079514679284260498516421, +1.78779460926740199929017308229939122, +1.01855092415741138320586557365091773, +1.02808481311541085840072942985380713, +1.47504589529967721853097296897338535, +1.21973864962464424770660946027216093, +1.53915314652129091965178331278967500, +1.44751001478715275257012413268003834, +1.85628186920383381951688365364602172, +1.69879684343009837282470476782817743, +1.84765319695711788200131654549430230, +1.42841784605345024460160965642962160, +1.93640034466662658735650494882799507, +1.29402153426746148353416122787153949, +1.18306278513207865310157879970064683, +1.26945222834028483591298188267010030, +1.02178861548386363240027141388942155, +1.12416606639544368795386515090281391, +1.74572921557157546890919973198469203, +1.82277178735992806158806864679528886, +1.57446862432427639089863630820101476, +1.04991800820509603594670660071475638, +1.70312402642765871573303267609088755, +1.26280655269554233929052205391995828, +1.78303112469624221784652873355235827, +1.44967224323124874969935580242760885, +1.38049403009432562802432688485122444, +1.85616771899660951415779298306762725, +1.09761571786327583120248228369829247, +1.02200342209001755203903960421820651, +1.69099659490534860993556684622945309, +1.48075587894720879710199095669497751, +1.68148356576656941547810070855812419, +1.53894264686153179370055197998865560, +1.55135179900140347522914415734235054, +1.88248040200138611485027151803651087, +1.06515765391600864424304488041546881, +1.14099594529351594254570987737417998, +1.30908878156007567521950607470426413, +1.47803814841207146633155485381238410, +1.12280591069802042448364377574870276, +1.18364415713151966736013910143196941, +1.67809405212213037436716932825336741, +1.73811884875329607721956060630881879, +1.23875223618960271426478897228814677

296

297adat = getFFTI(getFFTF(data))

298adat

299+1.81567917583102293108242487539097178, +1.71598833849751014811050570297711585, +1.38702517248863213771068921954571418, +1.90496066202384121658339299685693432, +1.15956948558626208251247065238702671, +1.96321584925403579147817645316064880, +1.51255137195023007097359306732116556, +1.16439608114784162553439947509606969, +1.48648748371662581121519592585230972, +1.07496283541702542980440459593991353, +1.70576105860464382327167271623619126, +1.50944795787079514679284260498516459, +1.78779460926740199929017308229939084, +1.01855092415741138320586557365091773, +1.02808481311541085840072942985380655, +1.47504589529967721853097296897338516, +1.21973864962464424770660946027216112, +1.53915314652129091965178331278967500, +1.44751001478715275257012413268003834, +1.85628186920383381951688365364602172, +1.69879684343009837282470476782817743, +1.84765319695711788200131654549430269, +1.42841784605345024460160965642962141, +1.93640034466662658735650494882799545, +1.29402153426746148353416122787153968, +1.18306278513207865310157879970064644, +1.26945222834028483591298188267010030, +1.02178861548386363240027141388942136, +1.12416606639544368795386515090281391, +1.74572921557157546890919973198469222, +1.82277178735992806158806864679528867, +1.57446862432427639089863630820101476, +1.04991800820509603594670660071475638, +1.70312402642765871573303267609088755, +1.26280655269554233929052205391995828, +1.78303112469624221784652873355235846, +1.44967224323124874969935580242760885, +1.38049403009432562802432688485122444, +1.85616771899660951415779298306762725, +1.09761571786327583120248228369829228, +1.02200342209001755203903960421820689, +1.69099659490534860993556684622945328, +1.48075587894720879710199095669497751, +1.68148356576656941547810070855812439, +1.53894264686153179370055197998865560, +1.55135179900140347522914415734235054, +1.88248040200138611485027151803651068, +1.06515765391600864424304488041546901, +1.14099594529351594254570987737417998, +1.30908878156007567521950607470426413, +1.47803814841207146633155485381238391, +1.12280591069802042448364377574870314, +1.18364415713151966736013910143196941, +1.67809405212213037436716932825336741, +1.73811884875329607721956060630881840, +1.23875223618960271426478897228814677

300reltol = sqrt(epsilon(1._TKC))

301reltol

302+0.138777878078144567552953958511352539E-16

303isClose(data, adat, reltol = reltol)

304T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

305call setAsserted(all(isClose(data, adat, reltol = reltol)))

306

307lenData = getUnifRand(5, 100)

308lenData

309+32

310data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

311data

312(+1.60240459, +0.126111984), (+1.40689886, +0.944892943), (+1.85604072, +0.643765926E-2), (+1.55610657, +0.740579367E-1), (+1.44017351, +0.748385787), (+1.80559278, +0.974325299), (+1.15009832, +0.145169258), (+1.81651998, +0.506616950), (+1.91560221, +0.708579659), (+1.34115005, +0.816571712), (+1.82170558, +0.232741416), (+1.09626210, +0.131502032), (+1.89597988, +0.249646008), (+1.98640323, +0.649404526E-2), (+1.68839645, +0.663189709), (+1.24663448, +0.641009748), (+1.96901429, +0.809855700), (+1.82674301, +0.830273151), (+1.25062752, +0.888871431), (+1.43778944, +0.824354708), (+1.49332738, +0.938247859), (+1.07295847, +0.636527717), (+1.08651471, +0.463099658), (+1.34608305, +0.337281227), (+1.81409216, +0.936101437), (+1.62888861, +0.151960492), (+1.37830031, +0.110005319), (+1.80769241, +0.972582161), (+1.34983885, +0.372770786), (+1.29759312, +0.412575722), (+1.68653870, +0.631455958), (+1.08735216, +0.331984103)

313

314adat = getFFTI(getFFTF(data))

315adat

316(+1.60240459, +0.126112074), (+1.40689898, +0.944892883), (+1.85604072, +0.643765926E-2), (+1.55610657, +0.740579069E-1), (+1.44017339, +0.748385847), (+1.80559289, +0.974325359), (+1.15009844, +0.145169318), (+1.81651998, +0.506617010), (+1.91560221, +0.708579659), (+1.34115016, +0.816571653), (+1.82170546, +0.232741445), (+1.09626198, +0.131502092), (+1.89597988, +0.249646053), (+1.98640335, +0.649408996E-2), (+1.68839645, +0.663189769), (+1.24663460, +0.641009748), (+1.96901417, +0.809855700), (+1.82674313, +0.830273151), (+1.25062752, +0.888871431), (+1.43778944, +0.824354768), (+1.49332738, +0.938247859), (+1.07295859, +0.636527717), (+1.08651483, +0.463099718), (+1.34608316, +0.337281287), (+1.81409216, +0.936101437), (+1.62888873, +0.151960492), (+1.37830031, +0.110005431), (+1.80769253, +0.972582161), (+1.34983873, +0.372770816), (+1.29759324, +0.412575781), (+1.68653870, +0.631456017), (+1.08735240, +0.331984103)

317reltol = sqrt(epsilon(1._TKC))

318reltol

319+0.345266977E-3

320isClose(data, adat, reltol = reltol)

321T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

322call setAsserted(all(isClose(data, adat, reltol = reltol)))

323

324lenData = getUnifRand(5, 100)

325lenData

326+69

327data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

328data

329(+1.9642841978689365, +0.23238020019297945), (+1.8983883325886524, +0.69880257107492616), (+1.6975401245898287, +0.39756577416827843), (+1.8900580163841627, +0.46159236086160083), (+1.6101680404094032, +0.92007649853476681), (+1.0308439390726338, +0.35019313975434263), (+1.6099477183919593, +0.15182598414248405), (+1.7572297201534886, +0.68728108786510256), (+1.6699291777225982, +0.61433130252041401), (+1.2181642765733034, +0.33650776586844733), (+1.7948989494008007, +0.93560983095240413E-1), (+1.0373581909197465, +0.88766470919972196), (+1.9116044419091449, +0.87743906502967917), (+1.1456630272855195, +0.96115157248471295), (+1.5174400423032195, +0.56918386416760613), (+1.2472445737242479, +0.53367783311941042), (+1.1125987110306741, +0.10153327988587713), (+1.9249749944717167, +0.18907244102559717), (+1.1864317442551116, +0.13589071702583055), (+1.4180538957922102, +0.71520782818574236), (+1.9114639991564104, +0.11914320668284784), (+1.1856169819754032, +0.54214641221244975E-1), (+1.0354024924910412, +0.47784293048870807), (+1.6447318186643365, +0.56127290745392422), (+1.0158347095809386, +0.66149694931906156), (+1.3764855362616304, +0.19582220784559112), (+1.9191693432202006, +0.22033159388678281), (+1.3605521170465944, +0.41678993554174493), (+1.5517050654802427, +0.52798993952063022), (+1.2299298719339509, +0.67883336794089799), (+1.7030471226165629, +0.72144413074161140), (+1.8434496116427073, +0.59056411403458742E-1), (+1.6970467687608242, +0.44377834952600947E-1), (+1.6217234900762136, +0.45859575849519485), (+1.5845363861053525, +0.45585783323261586), (+1.9375299670327961, +0.73979799318373074), (+1.0513398028435865, +0.88400277040221575E-1), (+1.4443142838672163, +0.49389521583026497), (+1.9639036162859778, +0.90228238923775195), (+1.5838630724501006, +0.55723308256191639), (+1.9618627146150756, +0.54431076522852850), (+1.1773818955066151, +0.92151008575332460), (+1.0941188884182900, +0.44147626964791997), (+1.8134956007052465, +0.45544116601364193), (+1.0070629995552900, +0.53319560649022379), (+1.8762307678148455, +0.88977292735396263), (+1.4062876714442956, +0.74235758353867831), (+1.5073818241450854, +0.21796457432387673), (+1.2513679098842723, +0.92162517745960215), (+1.0076968024895039, +0.51259074229646606), (+1.6761611058710022, +0.51517473742818864), (+1.5336837399472789, +0.19305446907770940), (+1.0217431611049079, +0.86716177428373142), (+1.5222217585335678, +0.66544012932593288), (+1.4438052690975871, +0.12684177213983316), (+1.2976429305161532, +0.68892047662501354), (+1.3898776859638180, +0.35942022113194205), (+1.3558167094197229, +0.34423591195914316E-1), (+1.2384902428861924, +0.31175078692029212), (+1.6725463931550679, +0.47804091882350208), (+1.2000295143295214, +0.73506336537949968), (+1.9246794023555642, +0.68282454207841881), (+1.9041019378554815, +0.55056467526357433), (+1.0046940849507549, +0.60994476823547072), (+1.8828817450391320, +0.18709033125861219), (+1.5222822354607173, +0.20549320496826029), (+1.3930711922464920, +0.95938634519423316), (+1.7930366808813609, +0.28398521066571480E-1), (+1.8489145804783740, +0.31136194370134374E-1)

330

331adat = getFFTI(getFFTF(data))

332adat

333(+1.9642841978689336, +0.23238020019297903), (+1.8983883325886526, +0.69880257107492638), (+1.6975401245898287, +0.39756577416827871), (+1.8900580163841625, +0.46159236086160083), (+1.6101680404094030, +0.92007649853476670), (+1.0308439390726338, +0.35019313975434246), (+1.6099477183919597, +0.15182598414248416), (+1.7572297201534886, +0.68728108786510311), (+1.6699291777225982, +0.61433130252041390), (+1.2181642765733032, +0.33650776586844705), (+1.7948989494008007, +0.93560983095240649E-1), (+1.0373581909197449, +0.88766470919972151), (+1.9116044419091440, +0.87743906502967872), (+1.1456630272855195, +0.96115157248471317), (+1.5174400423032188, +0.56918386416760602), (+1.2472445737242477, +0.53367783311941053), (+1.1125987110306741, +0.10153327988587708), (+1.9249749944717163, +0.18907244102559712), (+1.1864317442551116, +0.13589071702583072), (+1.4180538957922095, +0.71520782818574202), (+1.9114639991564104, +0.11914320668284803), (+1.1856169819754034, +0.54214641221245002E-1), (+1.0354024924910414, +0.47784293048870807), (+1.6447318186643343, +0.56127290745392400), (+1.0158347095809388, +0.66149694931906211), (+1.3764855362616302, +0.19582220784559135), (+1.9191693432202004, +0.22033159388678294), (+1.3605521170465940, +0.41678993554174470), (+1.5517050654802422, +0.52798993952063056), (+1.2299298719339506, +0.67883336794089810), (+1.7030471226165631, +0.72144413074161118), (+1.8434496116427068, +0.59056411403458568E-1), (+1.6970467687608237, +0.44377834952601232E-1), (+1.6217234900762139, +0.45859575849519502), (+1.5845363861053519, +0.45585783323261564), (+1.9375299670327948, +0.73979799318373018), (+1.0513398028435867, +0.88400277040222006E-1), (+1.4443142838672161, +0.49389521583026513), (+1.9639036162859771, +0.90228238923775173), (+1.5838630724501008, +0.55723308256191639), (+1.9618627146150751, +0.54431076522852861), (+1.1773818955066149, +0.92151008575332505), (+1.0941188884182895, +0.44147626964791986), (+1.8134956007052461, +0.45544116601364221), (+1.0070629995552896, +0.53319560649022391), (+1.8762307678148453, +0.88977292735396329), (+1.4062876714442929, +0.74235758353867753), (+1.5073818241450856, +0.21796457432387722), (+1.2513679098842718, +0.92162517745960237), (+1.0076968024895039, +0.51259074229646617), (+1.6761611058710022, +0.51517473742818853), (+1.5336837399472791, +0.19305446907770973), (+1.0217431611049077, +0.86716177428373131), (+1.5222217585335678, +0.66544012932593266), (+1.4438052690975867, +0.12684177213983294), (+1.2976429305161532, +0.68892047662501343), (+1.3898776859638178, +0.35942022113194205), (+1.3558167094197222, +0.34423591195914024E-1), (+1.2384902428861915, +0.31175078692029179), (+1.6725463931550677, +0.47804091882350191), (+1.2000295143295212, +0.73506336537949979), (+1.9246794023555642, +0.68282454207841892), (+1.9041019378554813, +0.55056467526357433), (+1.0046940849507551, +0.60994476823547084), (+1.8828817450391317, +0.18709033125861246), (+1.5222822354607171, +0.20549320496826026), (+1.3930711922464916, +0.95938634519423305), (+1.7930366808813607, +0.28398521066571820E-1), (+1.8489145804783744, +0.31136194370134856E-1)

334reltol = sqrt(epsilon(1._TKC))

335reltol

336+0.14901161193847656E-7

337isClose(data, adat, reltol = reltol)

338T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

339call setAsserted(all(isClose(data, adat, reltol = reltol)))

340

341lenData = getUnifRand(5, 100)

342lenData

343+98

344data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

345data

346(+1.98710328397244352088150922368818413, +0.828150998938258645958077541329459705), (+1.36853018634174499073624476190664069, +0.540856812098329711027011565095453531), (+1.91738657937081983465763208540482650, +0.490673851727639298295967435574585263), (+1.84442839923766265396815725813053425, +0.771140687055779028268877791874444108), (+1.77607328778520805224904769353909613, +0.399321286284452951171065667042665412), (+1.32427688874657454861332773003961670, +0.706982316803143101978855774497925105), (+1.25848238568040843062873891146616741, +0.618902750491148763544439103872847918), (+1.64264663895068288760158328886036180, +0.672898900560774834854271398086465756), (+1.10658946653679328196755099815135925, +0.252533904431298106263650517187183748), (+1.97427649399529509539586124514881596, +0.466558205456986613945377754590325300), (+1.75047019023829423783485373877817294, +0.811620421769689497024170677804133723), (+1.66470879821503385172403236259271486, +0.966529466135093561251664827393159262E-1), (+1.61237706344545725108491410237716363, +0.238459228366334619563530711651343408), (+1.78223153591903932326180614784875325, +0.600182629545651461999060592312945611), (+1.23679268307056252700358961653727450, +0.186983083487369778007413477115802278), (+1.29859569871067110852370112364812782, +0.827819224613895832655948567239530550E-1), (+1.71297476475656746091536406642573856, +0.344638157795003585083635791239891541), (+1.24403295410620238433694439957185922, +0.264352209147081887839072902819884681E-1), (+1.48968982487739610243732782619541948, +0.589479413238504513269994860469459972), (+1.47366588722886387299439929284401673, +0.626683045210639046183563806337367573), (+1.39915115886507606249174970099779347, +0.856196263248849244090540120333694892), (+1.53937895955605563299223479022547759, +0.116137133642331641226497388930766088), (+1.96141705698943964247494307618225872, +0.182073015469368325827300929693472633), (+1.78111693975119492457679273896248080, +0.892998176336968338992298827221335023), (+1.99656968368486662406655349993032265, +0.793976117331176116933822363603364197), (+1.96749185206156328554853459227427421, +0.650016356588710539021598088965591622), (+1.49064447988748324201764621659269260, +0.356667552231192766994644103185161757E-1), (+1.59048058924222293333180962025932331, +0.405273896588198746342520342410137569), (+1.15365359882234236795248859306350034, +0.245648464804279943614299105535556169), (+1.16091026126064915233861929002460217, +0.221373916932003683742415945445098549), (+1.89576714979096717235656603231047285, +0.406901387539998160463264619537813138), (+1.13060110310976153426048586626604331, +0.813665569426922618220866142885996651), (+1.58312907709361453368649479515189711, +0.582385870099290553917505513604706943), (+1.28426502571990580967832216026831517, +0.401745289574700873350920268417134209), (+1.22310573975440478960224679230000249, +0.554441569584980732112272092575992192E-1), (+1.88043804551995773155578965079022489, +0.859958485654294908801965855025785535), (+1.81664287560322234577576284076409331, +0.219667031707996622259641534191788361), (+1.01669172855416231367702680516103793, +0.596691129210477663319935251152325106), (+1.52287477763756615435676085808855595, +0.252283400535500671870233363623869762), (+1.44766066224498339130755511949444736, +0.656307309834035093765409207848443432), (+1.58076696941042265955086815516654588, +0.135597136865859280050056571541773493), (+1.68154282398831585665815975561913160, +0.111111544779264286886293585506306980), (+1.97767793987546264603296997774317441, +0.150658360830000296097150541372209899), (+1.36219294466507072660553873827080860, +0.202196733890034881885159921815903744), (+1.57279339419570933086975644819607688, +0.133355221733949817830621182141754658), (+1.98909911843380379810066355338851281, +0.186579811639901868540004323936893880), (+1.81949600092697377342682628210262956, +0.429792870506438528970682220928338540), (+1.80106871383879729623412433032042069, +0.480765471553733625289378729978572729), (+1.80049380007774062600504698511528996, +0.318177749957723813619446831244799490), (+1.38051382368232163670412730914187561, +0.804552683503695757224264837392363379), (+1.89954379410868499279821852873585536, +0.113585513622943061520697729046084456), (+1.61778856455200801384621765593924516, +0.496414190904403490849426931305569677), (+1.81332012454800532544694586744259833, +0.861725302885770661848585729465727625), (+1.87217924125322506978557728055849553, +0.754506127736096427184162666702083243), (+1.58428165911516953946678203331204791, +0.933836457396755263855809654909244011), (+1.51051007326194449878607173996624569, +0.213490317785764705664296656963492630), (+1.65200272239322539659544474566716803, +0.185498995249551819479095022091202176), (+1.88094364305495037941250003965100119, +0.425682930048677780472945032334875050), (+1.54984212270360563271404546093875850, +0.371711779546739547095323151779600087), (+1.45746855205627517789473730195408162, +0.429872259786452113347137397371396119), (+1.04404267973258906615218936266685017, +0.490640721451165175405862137401995415), (+1.59604852157815207845263242254117433, +0.331395931119091592133221333167348038), (+1.44412340626375292963780341628879521, +0.806997825398887675865761592017890749E-2), (+1.21277945446327792227594180106585234, +0.310204093512189449789439189453224101), (+1.90985193013341533624863917109736252, +0.835191108720325629474513719733639810), (+1.62931616675127755742525484147307735, +0.287941094293591959612123337806084990), (+1.15978478454453480944736538930740503, +0.580158846975047067624287268648852450), (+1.74399381669600062210061819817572643, +0.553714474511141314592423988493144475), (+1.77812085846550787089030164105246733, +0.591968198598179758972121932654607702), (+1.09925028042554529050605752354029378, +0.593282241079188066104923900714970068), (+1.95629822482360315163233751216778312, +0.568221832543831996767321994937585780), (+1.51162575523816567477744546152985042, +0.155003717419477727790991571429392994), (+1.88515376405172167920180713806399958, +0.473316854556438743861347725649051288), (+1.42384076998133814507005561252801069, +0.984670569619304217405139057800305241), (+1.67019318098021755432209847761403862, +0.835002352930749990286156171157742791), (+1.56658430108808413249090609834068672, +0.250543588756022239719835760575081075E-1), (+1.59718408418066514353043814814618108, +0.850001969802275659312158240918732861), (+1.26202515276985511908909630516496137, +0.451668532831510799200788273234830176), (+1.44149519296287662281623467312598800, +0.342626765002869451214382822738819841), (+1.23620413773801926478001354541929953, +0.824433311187856776121879921908041799E-1), (+1.89335917129614968083612437886461733, +0.361642418872047885858929174948101146), (+1.75832860225063195115332580357824437, +0.171266659822176176024223598934710247), (+1.19499367174570865929752820540260798, +0.944969611943593546228442340981994442), (+1.63351224976858016766530432950670607, +0.241311815919243454933742815528448018), (+1.61840857745327889586305408815429229, +0.697772680380028434165790084728325629), (+1.15089514127960699053984971284570695, +0.229472820531121284525919754450727230E-1), (+1.97996527590167632007017989761435439, +0.970381648719606151948322280054764443), (+1.55346575132346281378709573156603778, +0.557984089762915578838649930296272575), (+1.40297207916904123785115952521971814, +0.727294879767213779326236152019491718), (+1.50234458965799028774239069452188522, +0.251399890602048999464124222822798389), (+1.27055337861949023286360967691056574, +0.107237620214088696978455000753790843), (+1.41300544288595200135742295584400023, +0.609690884009594095521595716832913995), (+1.33283183901802526513836948460894345, +0.938554418119567812871898287720481850), (+1.96797203213708390998825153245455696, +0.748119783671015414496171463380615671), (+1.48224319496350830458861829357584422, +0.251053856598919612948259461572804410E-1), (+1.96523243454194699952971069895753026, +0.530911200805205605589999950528736975), (+1.67574330260331917056735827325048236, +0.842716196415287016359852077164565681), (+1.80310274570039076107644144664363537, +0.383960535102506824833765616059924333)

347

348adat = getFFTI(getFFTF(data))

349adat

350(+1.98710328397244352088150922368818452, +0.828150998938258645958077541329459512), (+1.36853018634174499073624476190664089, +0.540856812098329711027011565095453435), (+1.91738657937081983465763208540482630, +0.490673851727639298295967435574585408), (+1.84442839923766265396815725813053425, +0.771140687055779028268877791874444204), (+1.77607328778520805224904769353909651, +0.399321286284452951171065667042665315), (+1.32427688874657454861332773003961689, +0.706982316803143101978855774497925008), (+1.25848238568040843062873891146616780, +0.618902750491148763544439103872847822), (+1.64264663895068288760158328886036180, +0.672898900560774834854271398086465659), (+1.10658946653679328196755099815135983, +0.252533904431298106263650517187183700), (+1.97427649399529509539586124514881596, +0.466558205456986613945377754590325204), (+1.75047019023829423783485373877817332, +0.811620421769689497024170677804133723), (+1.66470879821503385172403236259271505, +0.966529466135093561251664827393160225E-1), (+1.61237706344545725108491410237716382, +0.238459228366334619563530711651343312), (+1.78223153591903932326180614784875306, +0.600182629545651461999060592312945515), (+1.23679268307056252700358961653727469, +0.186983083487369778007413477115802302), (+1.29859569871067110852370112364812801, +0.827819224613895832655948567239530188E-1), (+1.71297476475656746091536406642573837, +0.344638157795003585083635791239891685), (+1.24403295410620238433694439957185902, +0.264352209147081887839072902819884410E-1), (+1.48968982487739610243732782619541987, +0.589479413238504513269994860469459876), (+1.47366588722886387299439929284401711, +0.626683045210639046183563806337367477), (+1.39915115886507606249174970099779424, +0.856196263248849244090540120333694892), (+1.53937895955605563299223479022547701, +0.116137133642331641226497388930766184), (+1.96141705698943964247494307618225891, +0.182073015469368325827300929693472681), (+1.78111693975119492457679273896248061, +0.892998176336968338992298827221335119), (+1.99656968368486662406655349993032265, +0.793976117331176116933822363603364197), (+1.96749185206156328554853459227427402, +0.650016356588710539021598088965591526), (+1.49064447988748324201764621659269260, +0.356667552231192766994644103185160433E-1), (+1.59048058924222293333180962025932350, +0.405273896588198746342520342410137424), (+1.15365359882234236795248859306349996, +0.245648464804279943614299105535556265), (+1.16091026126064915233861929002460236, +0.221373916932003683742415945445098453), (+1.89576714979096717235656603231047266, +0.406901387539998160463264619537813235), (+1.13060110310976153426048586626604311, +0.813665569426922618220866142885996554), (+1.58312907709361453368649479515189711, +0.582385870099290553917505513604706847), (+1.28426502571990580967832216026831537, +0.401745289574700873350920268417134161), (+1.22310573975440478960224679230000287, +0.554441569584980732112272092575993034E-1), (+1.88043804551995773155578965079022431, +0.859958485654294908801965855025785247), (+1.81664287560322234577576284076409369, +0.219667031707996622259641534191788385), (+1.01669172855416231367702680516103793, +0.596691129210477663319935251152325009), (+1.52287477763756615435676085808855633, +0.252283400535500671870233363623869858), (+1.44766066224498339130755511949444755, +0.656307309834035093765409207848443432), (+1.58076696941042265955086815516654607, +0.135597136865859280050056571541773420), (+1.68154282398831585665815975561913199, +0.111111544779264286886293585506306811), (+1.97767793987546264603296997774317460, +0.150658360830000296097150541372209923), (+1.36219294466507072660553873827080918, +0.202196733890034881885159921815903575), (+1.57279339419570933086975644819607726, +0.133355221733949817830621182141754731), (+1.98909911843380379810066355338851281, +0.186579811639901868540004323936894000), (+1.81949600092697377342682628210262975, +0.429792870506438528970682220928338588), (+1.80106871383879729623412433032042107, +0.480765471553733625289378729978572488), (+1.80049380007774062600504698511528996, +0.318177749957723813619446831244799490), (+1.38051382368232163670412730914187541, +0.804552683503695757224264837392363283), (+1.89954379410868499279821852873585594, +0.113585513622943061520697729046084384), (+1.61778856455200801384621765593924497, +0.496414190904403490849426931305569580), (+1.81332012454800532544694586744259871, +0.861725302885770661848585729465727625), (+1.87217924125322506978557728055849572, +0.754506127736096427184162666702083051), (+1.58428165911516953946678203331204810, +0.933836457396755263855809654909243915), (+1.51051007326194449878607173996624569, +0.213490317785764705664296656963492534), (+1.65200272239322539659544474566716841, +0.185498995249551819479095022091202296), (+1.88094364305495037941250003965100157, +0.425682930048677780472945032334875002), (+1.54984212270360563271404546093875888, +0.371711779546739547095323151779600231), (+1.45746855205627517789473730195408142, +0.429872259786452113347137397371396119), (+1.04404267973258906615218936266685037, +0.490640721451165175405862137401995463), (+1.59604852157815207845263242254117452, +0.331395931119091592133221333167347990), (+1.44412340626375292963780341628879521, +0.806997825398887675865761592017871791E-2), (+1.21277945446327792227594180106585177, +0.310204093512189449789439189453224294), (+1.90985193013341533624863917109736290, +0.835191108720325629474513719733639618), (+1.62931616675127755742525484147307735, +0.287941094293591959612123337806084942), (+1.15978478454453480944736538930740522, +0.580158846975047067624287268648852642), (+1.74399381669600062210061819817572682, +0.553714474511141314592423988493144572), (+1.77812085846550787089030164105246714, +0.591968198598179758972121932654607702), (+1.09925028042554529050605752354029416, +0.593282241079188066104923900714970164), (+1.95629822482360315163233751216778292, +0.568221832543831996767321994937585780), (+1.51162575523816567477744546152985062, +0.155003717419477727790991571429392777), (+1.88515376405172167920180713806399958, +0.473316854556438743861347725649051384), (+1.42384076998133814507005561252801049, +0.984670569619304217405139057800305337), (+1.67019318098021755432209847761403842, +0.835002352930749990286156171157742694), (+1.56658430108808413249090609834068711, +0.250543588756022239719835760575079570E-1), (+1.59718408418066514353043814814618147, +0.850001969802275659312158240918732573), (+1.26202515276985511908909630516496060, +0.451668532831510799200788273234830080), (+1.44149519296287662281623467312598838, +0.342626765002869451214382822738819745), (+1.23620413773801926478001354541929915, +0.824433311187856776121879921908040957E-1), (+1.89335917129614968083612437886461772, +0.361642418872047885858929174948101194), (+1.75832860225063195115332580357824437, +0.171266659822176176024223598934710199), (+1.19499367174570865929752820540260798, +0.944969611943593546228442340981994345), (+1.63351224976858016766530432950670626, +0.241311815919243454933742815528447994), (+1.61840857745327889586305408815429229, +0.697772680380028434165790084728325532), (+1.15089514127960699053984971284570753, +0.229472820531121284525919754450727230E-1), (+1.97996527590167632007017989761435401, +0.970381648719606151948322280054764346), (+1.55346575132346281378709573156603778, +0.557984089762915578838649930296272479), (+1.40297207916904123785115952521971814, +0.727294879767213779326236152019491718), (+1.50234458965799028774239069452188542, +0.251399890602048999464124222822798293), (+1.27055337861949023286360967691056651, +0.107237620214088696978455000753790687), (+1.41300544288595200135742295584400004, +0.609690884009594095521595716832913995), (+1.33283183901802526513836948460894383, +0.938554418119567812871898287720481850), (+1.96797203213708390998825153245455715, +0.748119783671015414496171463380615671), (+1.48224319496350830458861829357584441, +0.251053856598919612948259461572805523E-1), (+1.96523243454194699952971069895753026, +0.530911200805205605589999950528737072), (+1.67574330260331917056735827325048255, +0.842716196415287016359852077164565392), (+1.80310274570039076107644144664363556, +0.383960535102506824833765616059924333)

351reltol = sqrt(epsilon(1._TKC))

352reltol

353+0.138777878078144567552953958511352539E-16

354isClose(data, adat, reltol = reltol)

355T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

356call setAsserted(all(isClose(data, adat, reltol = reltol)))

357

358lenData = getUnifRand(5, 100)

359lenData

360+64

361data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

362data

363+1.74080276, +1.07977319, +1.54732180, +1.09338689, +1.02352476, +1.53306019, +1.77814889, +1.23624504, +1.47429979, +1.91047716, +1.75843334, +1.43862963, +1.24671531, +1.53874183, +1.56250095, +1.59961724, +1.03192639, +1.78599691, +1.88555002, +1.02933967, +1.55214393, +1.46933043, +1.39652443, +1.80530405, +1.20999587, +1.11019206, +1.81242085, +1.66362715, +1.11969328, +1.93766379, +1.98487043, +1.89467216, +1.17477322, +1.49497557, +1.57168412, +1.97173786, +1.81633282, +1.04901505, +1.31879997, +1.62561011, +1.79611135, +1.91676688, +1.37348270, +1.11441588, +1.88762784, +1.56108952, +1.65809751, +1.94551241, +1.53913546, +1.39019966, +1.64535666, +1.70351887, +1.96652269, +1.39481366, +1.75023985, +1.64239407, +1.59759831, +1.02191710, +1.85972846, +1.41205287, +1.80828142, +1.98127532, +1.59584630, +1.44192839

364

365adat = getFFTI(getFFTF(data))

366adat

367+1.74080288, +1.07977307, +1.54732180, +1.09338677, +1.02352464, +1.53306031, +1.77814889, +1.23624492, +1.47429979, +1.91047728, +1.75843310, +1.43862975, +1.24671519, +1.53874183, +1.56250095, +1.59961724, +1.03192639, +1.78599691, +1.88554990, +1.02933979, +1.55214393, +1.46933067, +1.39652431, +1.80530405, +1.20999599, +1.11019206, +1.81242061, +1.66362727, +1.11969316, +1.93766391, +1.98487020, +1.89467216, +1.17477334, +1.49497545, +1.57168412, +1.97173774, +1.81633270, +1.04901505, +1.31879997, +1.62561011, +1.79611146, +1.91676700, +1.37348247, +1.11441600, +1.88762772, +1.56108952, +1.65809751, +1.94551229, +1.53913546, +1.39019966, +1.64535654, +1.70351887, +1.96652257, +1.39481390, +1.75023973, +1.64239407, +1.59759855, +1.02191710, +1.85972810, +1.41205299, +1.80828130, +1.98127544, +1.59584618, +1.44192839

368reltol = sqrt(epsilon(1._TKC))

369reltol

370+0.345266977E-3

371isClose(data, adat, reltol = reltol)

372T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

373call setAsserted(all(isClose(data, adat, reltol = reltol)))

374

375lenData = getUnifRand(5, 100)

376lenData

377+45

378data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

379data

380+1.7060071170784630, +1.6736461420655151, +1.1322860319606418, +1.0420534576760487, +1.9604418943387656, +1.0497812557394548, +1.1355067220816921, +1.7131389299859818, +1.2057350746762636, +1.6468924026190297, +1.4461826049761815, +1.2263230823583364, +1.6070843674277657, +1.0077927249907994, +1.9935508462782425, +1.6496283103999101, +1.3826122425626370, +1.9638259003697245, +1.9857139114678817, +1.7035056543573859, +1.6466545807489550, +1.8806946263136148, +1.8462368118113244, +1.9627671318544668, +1.6284891858221524, +1.8497022682931479, +1.4037298752471394, +1.2731514396298040, +1.1901227589793033, +1.7772369690044942, +1.3654073652581915, +1.7009409464840446, +1.3649918236481269, +1.2656727762127775, +1.6522284310941999, +1.0308143788478512, +1.6872427319825400, +1.3364533102654028, +1.6864055166170075, +1.7770281566947299, +1.2016155499346373, +1.4844800043338637, +1.5464285176039549, +1.2048088158585797, +1.5223088376905300

381

382adat = getFFTI(getFFTF(data))

383adat

384+1.7060071170784634, +1.6736461420655155, +1.1322860319606423, +1.0420534576760487, +1.9604418943387658, +1.0497812557394550, +1.1355067220816923, +1.7131389299859821, +1.2057350746762641, +1.6468924026190299, +1.4461826049761815, +1.2263230823583364, +1.6070843674277655, +1.0077927249907994, +1.9935508462782423, +1.6496283103999101, +1.3826122425626373, +1.9638259003697249, +1.9857139114678819, +1.7035056543573863, +1.6466545807489550, +1.8806946263136146, +1.8462368118113246, +1.9627671318544666, +1.6284891858221522, +1.8497022682931481, +1.4037298752471397, +1.2731514396298040, +1.1901227589793035, +1.7772369690044938, +1.3654073652581911, +1.7009409464840446, +1.3649918236481269, +1.2656727762127771, +1.6522284310942001, +1.0308143788478514, +1.6872427319825400, +1.3364533102654028, +1.6864055166170075, +1.7770281566947299, +1.2016155499346375, +1.4844800043338637, +1.5464285176039552, +1.2048088158585799, +1.5223088376905300

385reltol = sqrt(epsilon(1._TKC))

386reltol

387+0.14901161193847656E-7

388isClose(data, adat, reltol = reltol)

389T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

390call setAsserted(all(isClose(data, adat, reltol = reltol)))

391

392lenData = getUnifRand(5, 100)

393lenData

394+35

395data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

396data

397+1.06958283213677976859276778243111910, +1.56545157444259111594165867630495026, +1.20742217457762867358840943621411771, +1.90414286867258793767149022223667162, +1.38911820674963118981714503301382712, +1.56989228919408937838182479451622571, +1.37762486187272995117112277042924874, +1.57141358971006452607272001674878500, +1.99074081548523938662799359023643854, +1.53444234956541257090587185344551847, +1.18539597446058611378877697900188717, +1.15441991532974831638675053228855298, +1.52261527676864100624321091364772729, +1.00626994921074730292231441152447186, +1.98884281994084569502703485223335714, +1.75259588952323810430466778525911455, +1.00904152353548124385199580406394545, +1.16545520466242680557501135849612749, +1.42879623260225556430851412484856329, +1.30983498198406303051041638642539732, +1.27475362237854646808912823499324786, +1.88934671862228067763622136413057444, +1.72680019434399498392163583846461628, +1.00897336135596799851037010814554870, +1.78918419995200678745033643212472975, +1.94068273159108133121520969191824020, +1.29854209257467845747519858487572508, +1.38257424229951631083181320201235529, +1.99229188326966078922248319745317118, +1.80649112220894028845064395897939232, +1.83614995309386194234770766369902835, +1.10717641441728390563185588581518865, +1.91804791530600612897363544803711927, +1.46865524043804752885222816739607255, +1.31168182475530175593934991783222302

398

399adat = getFFTI(getFFTF(data))

400adat

401+1.06958283213677976859276778243111891, +1.56545157444259111594165867630495026, +1.20742217457762867358840943621411790, +1.90414286867258793767149022223667143, +1.38911820674963118981714503301382693, +1.56989228919408937838182479451622590, +1.37762486187272995117112277042924836, +1.57141358971006452607272001674878520, +1.99074081548523938662799359023643835, +1.53444234956541257090587185344551847, +1.18539597446058611378877697900188717, +1.15441991532974831638675053228855298, +1.52261527676864100624321091364772729, +1.00626994921074730292231441152447167, +1.98884281994084569502703485223335733, +1.75259588952323810430466778525911475, +1.00904152353548124385199580406394507, +1.16545520466242680557501135849612749, +1.42879623260225556430851412484856329, +1.30983498198406303051041638642539694, +1.27475362237854646808912823499324767, +1.88934671862228067763622136413057464, +1.72680019434399498392163583846461686, +1.00897336135596799851037010814554851, +1.78918419995200678745033643212472975, +1.94068273159108133121520969191824039, +1.29854209257467845747519858487572489, +1.38257424229951631083181320201235529, +1.99229188326966078922248319745317118, +1.80649112220894028845064395897939232, +1.83614995309386194234770766369902835, +1.10717641441728390563185588581518826, +1.91804791530600612897363544803711946, +1.46865524043804752885222816739607236, +1.31168182475530175593934991783222302

402reltol = sqrt(epsilon(1._TKC))

403reltol

404+0.138777878078144567552953958511352539E-16

405isClose(data, adat, reltol = reltol)

406T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

407call setAsserted(all(isClose(data, adat, reltol = reltol)))

408

409lenData = getUnifRand(5, 100)

410lenData

411+9

412data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

413data

414(+1.99528337, +0.973616540), (+1.35190678, +0.576169729), (+1.82800484, +0.760079443), (+1.94964409, +0.847362161), (+1.78422236, +0.265586436), (+1.30787790, +0.924974918), (+1.97620976, +0.186695635), (+1.20746887, +0.939802647), (+1.60331726, +0.790208340)

415

416adat = getFFTI(getFFTF(data))

417adat

418(+1.99528337, +0.973616481), (+1.35190690, +0.576169729), (+1.82800484, +0.760079443), (+1.94964409, +0.847362161), (+1.78422225, +0.265586436), (+1.30787790, +0.924974859), (+1.97620964, +0.186695680), (+1.20746887, +0.939802587), (+1.60331726, +0.790208280)

419reltol = sqrt(epsilon(1._TKC))

420reltol

421+0.345266977E-3

422isClose(data, adat, reltol = reltol)

423T, T, T, T, T, T, T, T, T

424call setAsserted(all(isClose(data, adat, reltol = reltol)))

425

426lenData = getUnifRand(5, 100)

427lenData

428+87

429data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

430data

431(+1.2337196656455955, +0.27896280508889271), (+1.0823454515798305, +0.99321946406117378), (+1.3179239735099673, +0.49731760910876766), (+1.3114767982987683, +0.90979540125084024), (+1.5334747833565796, +0.42830201572514959), (+1.8436894387734055, +0.42257568664311751), (+1.0474263229714054, +0.80673922575383794), (+1.2849177134719858, +0.89514229073070195), (+1.7329652346283144, +0.27748728886400675), (+1.0689770601232937, +0.27720733971206657), (+1.2997068754702918, +0.77558097670194670), (+1.7332738509621080, +0.84702128434130763), (+1.7071768756498027, +0.40157947311567221), (+1.9662227569078585, +0.23234405884878717), (+1.8380408430228101, +0.27134694424305550), (+1.1861822038076277, +0.32281809121639560), (+1.2547836895525251, +0.90901218082088098), (+1.6530949439628890, +0.42085835155761420), (+1.3254761264949690, +0.34657068311045158), (+1.2279500841618112, +0.96637890553448758), (+1.3736534052246472, +0.51909165702047055), (+1.4344659887681952, +0.51244970162432502), (+1.9242580802004627, +0.83490093196559245), (+1.2878281685490323, +0.88180479945493262), (+1.7798411656250341, +0.35301012420460742), (+1.8254220024337844, +0.74160022455835628), (+1.9936132412989900, +0.44979405414233842), (+1.1784057159554684, +0.86851724479083903), (+1.0969830564424887, +0.66753993987040983), (+1.3840936472553547, +0.63399659501766004), (+1.9218821243074418, +0.27180106633776047), (+1.1682249115129775, +0.58234004556802788), (+1.2239205506057771, +0.42135638441461698), (+1.0297024112811091, +0.20787680941781406E-1), (+1.8503725148689951, +0.13664759253984138E-1), (+1.0111931588416834, +0.54390816297437716), (+1.0770594725088403, +0.11727888067860526), (+1.9107114619696302, +0.54083583388821532), (+1.6243425642626579, +0.87942094391346071), (+1.5271513820259841, +0.17708175444109442), (+1.5311749873428366, +0.25736375353670993), (+1.8928727655866888, +0.32633419488868221), (+1.2828700455654007, +0.11050437792131773), (+1.5750165321333667, +0.10327531237705667), (+1.4701486455361734, +0.21766612118217143), (+1.6127618478101278, +0.78580264721933002), (+1.3267216076024333, +0.97208136342579998), (+1.3920223214585321, +0.24904769687886663), (+1.8383661754605298, +0.90414172028706430), (+1.7962574750578741, +0.98454912753333679), (+1.1831103475439040, +0.59972870810254530), (+1.6137793926232151, +0.64277565234263312), (+1.2248118487473127, +0.22496946229322701), (+1.1568785576307601, +0.45301115090418453E-1), (+1.2914742545015603, +0.70653811707423919), (+1.1329041223941254, +0.88855661759928817), (+1.6938808150096734, +0.43299397107097848), (+1.7632189187909599, +0.76220226878520037), (+1.4059476594531273, +0.94512188534594366), (+1.6845621308023302, +0.57579950337246444), (+1.8658247079568868, +0.21129239716286397), (+1.4632687056559122, +0.23604394872088874E-1), (+1.9528477245698730, +0.65042642624620273), (+1.6620145414511778, +0.95481567588954153), (+1.0046587405303109, +0.15217748418617449E-1), (+1.3663505521817498, +0.90660276286129271), (+1.8341125841828216, +0.47396655011492483E-1), (+1.0809665112416549, +0.85480704655923756), (+1.7866093001583379, +0.85091540088076989), (+1.9333473357654380, +0.45069600570420643), (+1.9939614034467708, +0.30361087240590012), (+1.8995497688347005, +0.19603827437402288), (+1.7111681167018955, +0.56321058032564530), (+1.1382884194202509, +0.89820255007166572), (+1.8161026835274821, +0.67717011300882812E-1), (+1.2799411329296950, +0.41851447970304489E-1), (+1.7610427589954192, +0.29754247448318982), (+1.4732789868305218, +0.62792280056855221E-1), (+1.7331548179786931, +0.93784990378498945), (+1.1649132796340607, +0.53941495267493234), (+1.9158306448486178, +0.91744484331806742), (+1.3722005142131199, +0.21825059865067109E-1), (+1.9303518588300270, +0.36804711095242237), (+1.4613823398453445, +0.99028698953247929), (+1.5006278141909610, +0.70619110971261512), (+1.2414538313386900, +0.74514809734718357), (+1.1281765526624685, +0.32414840848393600)

432

433adat = getFFTI(getFFTF(data))

434adat

435(+1.2337196656455931, +0.27896280508889199), (+1.0823454515798316, +0.99321946406117456), (+1.3179239735099675, +0.49731760910876793), (+1.3114767982987690, +0.90979540125084035), (+1.5334747833565801, +0.42830201572514942), (+1.8436894387734055, +0.42257568664311768), (+1.0474263229714054, +0.80673922575383827), (+1.2849177134719858, +0.89514229073070195), (+1.7329652346283151, +0.27748728886400670), (+1.0689770601232937, +0.27720733971206690), (+1.2997068754702918, +0.77558097670194703), (+1.7332738509621077, +0.84702128434130763), (+1.7071768756498027, +0.40157947311567216), (+1.9662227569078590, +0.23234405884878725), (+1.8380408430228103, +0.27134694424305533), (+1.1861822038076275, +0.32281809121639538), (+1.2547836895525244, +0.90901218082088042), (+1.6530949439628890, +0.42085835155761425), (+1.3254761264949686, +0.34657068311045158), (+1.2279500841618112, +0.96637890553448769), (+1.3736534052246470, +0.51909165702047055), (+1.4344659887681954, +0.51244970162432524), (+1.9242580802004623, +0.83490093196559234), (+1.2878281685490327, +0.88180479945493240), (+1.7798411656250348, +0.35301012420460759), (+1.8254220024337848, +0.74160022455835661), (+1.9936132412989904, +0.44979405414233875), (+1.1784057159554682, +0.86851724479083914), (+1.0969830564424894, +0.66753993987041016), (+1.3840936472553531, +0.63399659501765948), (+1.9218821243074431, +0.27180106633776119), (+1.1682249115129772, +0.58234004556802799), (+1.2239205506057775, +0.42135638441461720), (+1.0297024112811097, +0.20787680941781250E-1), (+1.8503725148689956, +0.13664759253984634E-1), (+1.0111931588416838, +0.54390816297437738), (+1.0770594725088405, +0.11727888067860553), (+1.9107114619696306, +0.54083583388821566), (+1.6243425642626579, +0.87942094391346048), (+1.5271513820259841, +0.17708175444109431), (+1.5311749873428375, +0.25736375353671009), (+1.8928727655866890, +0.32633419488868209), (+1.2828700455654007, +0.11050437792131719), (+1.5750165321333667, +0.10327531237705634), (+1.4701486455361732, +0.21766612118217118), (+1.6127618478101278, +0.78580264721932991), (+1.3267216076024337, +0.97208136342580009), (+1.3920223214585317, +0.24904769687886677), (+1.8383661754605292, +0.90414172028706397), (+1.7962574750578746, +0.98454912753333668), (+1.1831103475439042, +0.59972870810254553), (+1.6137793926232151, +0.64277565234263323), (+1.2248118487473130, +0.22496946229322717), (+1.1568785576307612, +0.45301115090418349E-1), (+1.2914742545015609, +0.70653811707423941), (+1.1329041223941256, +0.88855661759928850), (+1.6938808150096738, +0.43299397107097876), (+1.7632189187909615, +0.76220226878520059), (+1.4059476594531251, +0.94512188534594299), (+1.6845621308023313, +0.57579950337246466), (+1.8658247079568866, +0.21129239716286397), (+1.4632687056559124, +0.23604394872088919E-1), (+1.9528477245698737, +0.65042642624620306), (+1.6620145414511778, +0.95481567588954175), (+1.0046587405303111, +0.15217748418617682E-1), (+1.3663505521817498, +0.90660276286129304), (+1.8341125841828221, +0.47396655011492470E-1), (+1.0809665112416549, +0.85480704655923767), (+1.7866093001583381, +0.85091540088076945), (+1.9333473357654378, +0.45069600570420670), (+1.9939614034467712, +0.30361087240590007), (+1.8995497688347001, +0.19603827437402274), (+1.7111681167018951, +0.56321058032564486), (+1.1382884194202505, +0.89820255007166538), (+1.8161026835274816, +0.67717011300882909E-1), (+1.2799411329296946, +0.41851447970304823E-1), (+1.7610427589954198, +0.29754247448318977), (+1.4732789868305221, +0.62792280056855498E-1), (+1.7331548179786929, +0.93784990378498934), (+1.1649132796340609, +0.53941495267493256), (+1.9158306448486169, +0.91744484331806753), (+1.3722005142131197, +0.21825059865067269E-1), (+1.9303518588300277, +0.36804711095242243), (+1.4613823398453449, +0.99028698953247951), (+1.5006278141909615, +0.70619110971261512), (+1.2414538313386903, +0.74514809734718346), (+1.1281765526624696, +0.32414840848393617)

436reltol = sqrt(epsilon(1._TKC))

437reltol

438+0.14901161193847656E-7

439isClose(data, adat, reltol = reltol)

440T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

441call setAsserted(all(isClose(data, adat, reltol = reltol)))

442

443lenData = getUnifRand(5, 100)

444lenData

445+54

446data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

447data

448(+1.10631885512342300770563863109376045, +0.265429801870799927562455008707136239), (+1.65337165487127744843322110279467594, +0.904547407808382369977312726145206059), (+1.71367338641441705917843209759623073, +0.340183956686971288471912250597890608), (+1.29833956089105188257426404938386508, +0.485737598757685382739123418926992718), (+1.48376559384675832725342200864306984, +0.949708776501291436167147813536758447), (+1.58209520380497025026588069409448070, +0.496073608719924659912183219142651748), (+1.11486400064015124736557630732354837, +0.162545159519058316826856892799836188), (+1.72815798538554270528612772377288266, +0.762210584287983662048398763365271431), (+1.53450966958289462529357407619877075, +0.515469774214091185339287434784699854), (+1.32252212049808288825091870180508343, +0.465675064702853877249362284267881362), (+1.75786075986196325081639130349709335, +0.974437871153244233512316126731674712), (+1.96307660678172516074902519717658353, +0.569451649045633209617108634416913995), (+1.00066917963606937113942734711704012, +0.608771762018951892273579387428745734), (+1.83547781912464181374074287428923654, +0.131526026978099659611077551796146707), (+1.80908143147317494485332536754600005, +0.258567823784793824809875078113868448), (+1.57469387803571284966350631394839657, +0.699854964447081113498713813242619455), (+1.06153833457214811627737254827364070, +0.712239001874463542792495487057313328), (+1.69949243146349554859651102509713887, +0.581744711869844485717136832729567601), (+1.32650812793762783409352631965683129, +0.542925300712946530547777483748600362), (+1.20180209682458340617765089520503539, +0.293935203947305452970438704409658562), (+1.51790964206080270391843145596277969, +0.934695470232405096501471129517977222), (+1.92088464581724622944113168636113071, +0.822732228838796167391415477249198613), (+1.38567475650228512330059906846342383, +0.204167103791123850329663122344969496E-1), (+1.43669160339329155656948172004344269, +0.580819378052648612954041504266971677E-1), (+1.77501362071754789606703831525473990, +0.714843161881815673172695568606390037), (+1.27880564558575701932407868435055253, +0.912467488082990032893651321445033042), (+1.01863710841027139246235969145948899, +0.875495684969345283358678703364637293), (+1.51894294917841837061621780123566262, +0.289269991006884978801695224785179241), (+1.04731500647456014575140656148091287, +0.843970537436380963618830004190339312), (+1.56974208170566037870299578222962675, +0.441700450729412603054713333980067738), (+1.00328064182943599363872620063820998, +0.703688950153123081764994531273720755E-1), (+1.76760325416500872684443965988137709, +0.114846078159297658346816899406470987), (+1.06407742031889119695593396918395956, +0.121627221288258798001675418672569412), (+1.74122134619982698980786944813444059, +0.604778239675383252902893838429713091), (+1.99282175040870749513688813175482905, +0.406617285990120370145685656806267798), (+1.88871116876012923074429651420217939, +0.920879863143419883906254009983096419), (+1.79361466121516296567633414171213798, +0.974978157487070945467559607148555671), (+1.68742497039991454075101592439272200, +0.972251355911029918157464248263619081), (+1.24693980028197807390744321142207899, +0.908474380286816312272249423382585891), (+1.27477188826379865908584768328726128, +0.252707661326427560187706039081019625), (+1.58330508338523926164331904023241671, +0.131922221751640381034707099028439196), (+1.60656674771926646769832628963132882, +0.710261391333406422456128977738258565), (+1.79621884942857469629880732295681221, +0.920817182406171896464790726347356339), (+1.30359633648356549088043311514577384, +0.745919955199853703793359381391274384), (+1.11001631837227720697830185535550389, +0.632343670228418165381074939141275834), (+1.37427748174708514641514513730494819, +0.685039722253505904628978025252277664), (+1.64413065005713404123477191469943395, +0.934934110799623324706126713387945175), (+1.30263493106641452643436841031393062, +0.639095683163597499083330587444313097), (+1.14828326512247267588479093463627969, +0.336160659749230268253286452033950091), (+1.91832903881813683375187149267639304, +0.949258212996300255495349899721440915), (+1.41397170592937571156860798701341728, +0.993865659008308775393370856885019950), (+1.62224403527141893464186917824681364, +0.255227595526307647408570152801156246), (+1.37981573150606515488296361959130512, +0.264638146870247894810663259183496171), (+1.90529027699906412422747370307141412, +0.175007953940186703437175090104954187)

449

450adat = getFFTI(getFFTF(data))

451adat

452(+1.10631885512342300770563863109376025, +0.265429801870799927562455008707136191), (+1.65337165487127744843322110279467594, +0.904547407808382369977312726145206059), (+1.71367338641441705917843209759623053, +0.340183956686971288471912250597890464), (+1.29833956089105188257426404938386489, +0.485737598757685382739123418926992766), (+1.48376559384675832725342200864306965, +0.949708776501291436167147813536758350), (+1.58209520380497025026588069409448051, +0.496073608719924659912183219142651796), (+1.11486400064015124736557630732354818, +0.162545159519058316826856892799836236), (+1.72815798538554270528612772377288227, +0.762210584287983662048398763365271527), (+1.53450966958289462529357407619877075, +0.515469774214091185339287434784699757), (+1.32252212049808288825091870180508343, +0.465675064702853877249362284267881555), (+1.75786075986196325081639130349709354, +0.974437871153244233512316126731674808), (+1.96307660678172516074902519717658315, +0.569451649045633209617108634416914092), (+1.00066917963606937113942734711703993, +0.608771762018951892273579387428745734), (+1.83547781912464181374074287428923596, +0.131526026978099659611077551796146804), (+1.80908143147317494485332536754600005, +0.258567823784793824809875078113868255), (+1.57469387803571284966350631394839657, +0.699854964447081113498713813242619455), (+1.06153833457214811627737254827364051, +0.712239001874463542792495487057313617), (+1.69949243146349554859651102509713926, +0.581744711869844485717136832729567697), (+1.32650812793762783409352631965683110, +0.542925300712946530547777483748600362), (+1.20180209682458340617765089520503559, +0.293935203947305452970438704409658514), (+1.51790964206080270391843145596277949, +0.934695470232405096501471129517977125), (+1.92088464581724622944113168636113013, +0.822732228838796167391415477249198902), (+1.38567475650228512330059906846342383, +0.204167103791123850329663122344969827E-1), (+1.43669160339329155656948172004344269, +0.580819378052648612954041504266973964E-1), (+1.77501362071754789606703831525473971, +0.714843161881815673172695568606390037), (+1.27880564558575701932407868435055234, +0.912467488082990032893651321445033235), (+1.01863710841027139246235969145948899, +0.875495684969345283358678703364636716), (+1.51894294917841837061621780123566262, +0.289269991006884978801695224785179241), (+1.04731500647456014575140656148091287, +0.843970537436380963618830004190339312), (+1.56974208170566037870299578222962675, +0.441700450729412603054713333980067738), (+1.00328064182943599363872620063820979, +0.703688950153123081764994531273722200E-1), (+1.76760325416500872684443965988137632, +0.114846078159297658346816899406471143), (+1.06407742031889119695593396918395956, +0.121627221288258798001675418672569376), (+1.74122134619982698980786944813444059, +0.604778239675383252902893838429713091), (+1.99282175040870749513688813175482886, +0.406617285990120370145685656806267701), (+1.88871116876012923074429651420217939, +0.920879863143419883906254009983096515), (+1.79361466121516296567633414171213798, +0.974978157487070945467559607148555575), (+1.68742497039991454075101592439272219, +0.972251355911029918157464248263619081), (+1.24693980028197807390744321142207861, +0.908474380286816312272249423382585795), (+1.27477188826379865908584768328726090, +0.252707661326427560187706039081019866), (+1.58330508338523926164331904023241632, +0.131922221751640381034707099028439293), (+1.60656674771926646769832628963132882, +0.710261391333406422456128977738258661), (+1.79621884942857469629880732295681182, +0.920817182406171896464790726347356339), (+1.30359633648356549088043311514577346, +0.745919955199853703793359381391274576), (+1.11001631837227720697830185535550389, +0.632343670228418165381074939141275546), (+1.37427748174708514641514513730494819, +0.685039722253505904628978025252277664), (+1.64413065005713404123477191469943414, +0.934934110799623324706126713387945079), (+1.30263493106641452643436841031393062, +0.639095683163597499083330587444313097), (+1.14828326512247267588479093463627950, +0.336160659749230268253286452033950140), (+1.91832903881813683375187149267639265, +0.949258212996300255495349899721440915), (+1.41397170592937571156860798701341709, +0.993865659008308775393370856885019854), (+1.62224403527141893464186917824681344, +0.255227595526307647408570152801156391), (+1.37981573150606515488296361959130493, +0.264638146870247894810663259183496171), (+1.90529027699906412422747370307141450, +0.175007953940186703437175090104954476)

453reltol = sqrt(epsilon(1._TKC))

454reltol

455+0.138777878078144567552953958511352539E-16

456isClose(data, adat, reltol = reltol)

457T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

458call setAsserted(all(isClose(data, adat, reltol = reltol)))

459

460lenData = getUnifRand(5, 100)

461lenData

462+62

463data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

464data

465+1.35261059, +1.43341088, +1.72643209, +1.61876559, +1.49345863, +1.92201972, +1.66432285, +1.45658922, +1.67532051, +1.08058774, +1.31361794, +1.14717460, +1.73594189, +1.10014582, +1.04070127, +1.29000330, +1.09002471, +1.56311131, +1.02408695, +1.79613078, +1.18668580, +1.79785943, +1.03863251, +1.08722329, +1.40762782, +1.32743621, +1.43640041, +1.07358718, +1.88852990, +1.32825804, +1.34794235, +1.53180599, +1.63630390, +1.24537063, +1.71464050, +1.36445260, +1.39404345, +1.35987473, +1.54957128, +1.88009214, +1.88987088, +1.28657365, +1.59055197, +1.93557215, +1.90228820, +1.46346426, +1.74783432, +1.25486970, +1.56088078, +1.24559569, +1.37562490, +1.21748888, +1.83548737, +1.32389009, +1.22203362, +1.53572154, +1.31824124, +1.00872517, +1.39390731, +1.06584477, +1.17130935, +1.83584547

466

467adat = getFFTI(getFFTF(data))

468adat

469+1.35261047, +1.43341112, +1.72643173, +1.61876547, +1.49345839, +1.92201912, +1.66432261, +1.45658922, +1.67531919, +1.08058774, +1.31361854, +1.14717448, +1.73593962, +1.10014594, +1.04070258, +1.29000318, +1.09002399, +1.56311047, +1.02408850, +1.79613006, +1.18668485, +1.79785693, +1.03863525, +1.08722556, +1.40762556, +1.32743466, +1.43640220, +1.07358861, +1.88852274, +1.32825589, +1.34794939, +1.53180563, +1.63630474, +1.24537504, +1.71463680, +1.36444926, +1.39404428, +1.35987616, +1.54957116, +1.88008773, +1.88986933, +1.28657675, +1.59055328, +1.93556845, +1.90228724, +1.46346509, +1.74783385, +1.25486934, +1.56088078, +1.24559569, +1.37562525, +1.21748877, +1.83548605, +1.32389021, +1.22203386, +1.53572023, +1.31824124, +1.00872552, +1.39390659, +1.06584513, +1.17130911, +1.83584487

470reltol = sqrt(epsilon(1._TKC))

471reltol

472+0.345266977E-3

473isClose(data, adat, reltol = reltol)

474T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

475call setAsserted(all(isClose(data, adat, reltol = reltol)))

476

477lenData = getUnifRand(5, 100)

478lenData

479+52

480data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

481data

482+1.8654028913724598, +1.3709645171614935, +1.3306421033797593, +1.0274529649545618, +1.0264914527188220, +1.3356889477971325, +1.8809223404527264, +1.1919958941089648, +1.0027196165702663, +1.1884439275646179, +1.5705356783300510, +1.3133590466278848, +1.0652982673701989, +1.2906856722891584, +1.0004714599553377, +1.6906943471092641, +1.0830301376030222, +1.6531634484594131, +1.9626707220828230, +1.1927530272493012, +1.6782263962590076, +1.9857731097742060, +1.9288217667678471, +1.4584187130291812, +1.7615082719419264, +1.5070857523903660, +1.3650992497969028, +1.5177408751228092, +1.6926723867699143, +1.6196782273538313, +1.6980635267172302, +1.1874636871965019, +1.2197186018343227, +1.2263800454696985, +1.0823151447271351, +1.4309327302140753, +1.7666519309409869, +1.6269612442562282, +1.8917760705044646, +1.3140094274397911, +1.0538704620502120, +1.6975469095751770, +1.5528626184812160, +1.7865054569955392, +1.8614014156493059, +1.3094708665316692, +1.0588102883281745, +1.1700733956136995, +1.3032100003893938, +1.3045436566758388, +1.4242749378243647, +1.7177245524212446

483

484adat = getFFTI(getFFTF(data))

485adat

486+1.8654028913724598, +1.3709645171614937, +1.3306421033797595, +1.0274529649545621, +1.0264914527188225, +1.3356889477971332, +1.8809223404527269, +1.1919958941089648, +1.0027196165702661, +1.1884439275646179, +1.5705356783300506, +1.3133590466278851, +1.0652982673701998, +1.2906856722891595, +1.0004714599553381, +1.6906943471092646, +1.0830301376030218, +1.6531634484594129, +1.9626707220828228, +1.1927530272493012, +1.6782263962590094, +1.9857731097742080, +1.9288217667678478, +1.4584187130291817, +1.7615082719419246, +1.5070857523903654, +1.3650992497969008, +1.5177408751228088, +1.6926723867699129, +1.6196782273538310, +1.6980635267172293, +1.1874636871965010, +1.2197186018343238, +1.2263800454696998, +1.0823151447271351, +1.4309327302140760, +1.7666519309409869, +1.6269612442562285, +1.8917760705044646, +1.3140094274397909, +1.0538704620502126, +1.6975469095751781, +1.5528626184812162, +1.7865054569955399, +1.8614014156493059, +1.3094708665316694, +1.0588102883281743, +1.1700733956136995, +1.3032100003893945, +1.3045436566758395, +1.4242749378243651, +1.7177245524212448

487reltol = sqrt(epsilon(1._TKC))

488reltol

489+0.14901161193847656E-7

490isClose(data, adat, reltol = reltol)

491T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

492call setAsserted(all(isClose(data, adat, reltol = reltol)))

493

494lenData = getUnifRand(5, 100)

495lenData

496+51

497data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

498data

499+1.76589835680342505956522870014753761, +1.80156429345439532670675946092473980, +1.83736289736591146445193864268701243, +1.36354212421743877274608291408116712, +1.39321532877701451987479420032635865, +1.65649604300351730565938228793982052, +1.21007130429683726989338887759916732, +1.83923635446318177105509436857401722, +1.14410588330286815241161262559630439, +1.01336568258413988447866377264272667, +1.53391192447588060272701097906472985, +1.19754589078276579516653595940204185, +1.18108619657253846612823405935848898, +1.54825017409146657324314353102165671, +1.70732324082374954735437987241455162, +1.60006122045128077753177150534080918, +1.69305837176217328082759693362378798, +1.00828056655147923735536042550477536, +1.93435836925110686321782802235137504, +1.74300006012798707449227406556454558, +1.58070462862833919908588741411732531, +1.84867259280209136810481348965784017, +1.40356662451654092737831762448782399, +1.25899248939947561943041307018364030, +1.54778383465040487031159912725000748, +1.09373169327619627434774893697084299, +1.97054857254377424847492519503316211, +1.81580495901805552972706446889457901, +1.84242214080608381638375005262072655, +1.33269545270229882424416957654046449, +1.35286470974173671720698060404006619, +1.11062227904548591030401439116173504, +1.69381044461221030863534088890588783, +1.78620454104340021370965234316316982, +1.27583626438851302871204208458906657, +1.15582779643900811661659580487633042, +1.12818836321861268989720440945065996, +1.00935295626449311433808554320896789, +1.00567228489416131344633603997273655, +1.22729545966507339092960849385889888, +1.31078753393913941984124115041560079, +1.74704721766976874760258454098126272, +1.14000274156258959839667217583368587, +1.06538496602333183927755162022648968, +1.71305064573026162354286273913639259, +1.48451175412490338363668814047641228, +1.57319553553804146397434816292346123, +1.68022469955633124202193739830419552, +1.74851171166149798538491485716002752, +1.78533645639144350938834271996278129, +1.55692867417342483548621764154317970

500

501adat = getFFTI(getFFTF(data))

502adat

503+1.76589835680342505956522870014753819, +1.80156429345439532670675946092474096, +1.83736289736591146445193864268701320, +1.36354212421743877274608291408116673, +1.39321532877701451987479420032635826, +1.65649604300351730565938228793982052, +1.21007130429683726989338887759916828, +1.83923635446318177105509436857401780, +1.14410588330286815241161262559630478, +1.01336568258413988447866377264272590, +1.53391192447588060272701097906472928, +1.19754589078276579516653595940204146, +1.18108619657253846612823405935848918, +1.54825017409146657324314353102165748, +1.70732324082374954735437987241455162, +1.60006122045128077753177150534080763, +1.69305837176217328082759693362378683, +1.00828056655147923735536042550477478, +1.93435836925110686321782802235137523, +1.74300006012798707449227406556454616, +1.58070462862833919908588741411732570, +1.84867259280209136810481348965783805, +1.40356662451654092737831762448782245, +1.25899248939947561943041307018363953, +1.54778383465040487031159912725001056, +1.09373169327619627434774893697084685, +1.97054857254377424847492519503316327, +1.81580495901805552972706446889458036, +1.84242214080608381638375005262072732, +1.33269545270229882424416957654046873, +1.35286470974173671720698060404006504, +1.11062227904548591030401439116173465, +1.69381044461221030863534088890588532, +1.78620454104340021370965234316316944, +1.27583626438851302871204208458906677, +1.15582779643900811661659580487633216, +1.12818836321861268989720440945065899, +1.00935295626449311433808554320896731, +1.00567228489416131344633603997273540, +1.22729545966507339092960849385889907, +1.31078753393913941984124115041560118, +1.74704721766976874760258454098126330, +1.14000274156258959839667217583368529, +1.06538496602333183927755162022648929, +1.71305064573026162354286273913639181, +1.48451175412490338363668814047641325, +1.57319553553804146397434816292346162, +1.68022469955633124202193739830419590, +1.74851171166149798538491485716002714, +1.78533645639144350938834271996278109, +1.55692867417342483548621764154317951

504reltol = sqrt(epsilon(1._TKC))

505reltol

506+0.138777878078144567552953958511352539E-16

507isClose(data, adat, reltol = reltol)

508T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

509call setAsserted(all(isClose(data, adat, reltol = reltol)))

510

511

Test:: test_pm_fftpack

Final Remarks ⛓

If you believe this algorithm or its documentation can be improved, we appreciate your contribution and help to edit this page's documentation and source file on GitHub.
For details on the naming abbreviations, see this page.
For details on the naming conventions, see this page.
This software is distributed under the MIT license with additional terms outlined below.

If you use any parts or concepts from this library to any extent, you must acknowledge the usage by citing the relevant publications of the ParaMonte library.
If you regenerate any parts/ideas from this library in a programming environment other than those currently supported by this ParaMonte library (i.e., other than C, C++, Fortran, MATLAB, Python, R), you must also ask the end users to cite this original ParaMonte library.

Copyright: Computational Data Science Lab

Author:: Fatemeh Bagheri, Tuesday 11:34 PM, August 10, 2021, Dallas, TX

Definition at line 1567 of file pm_fftpack.F90.

The documentation for this interface was generated from the following file:

/home/amir/git/paramonte/src/fortran/main/pm_fftpack.F90